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NESTE NÚMERO 
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PROGRAMAÇÃO EM CÓDIGO DE MÁQUINA 


Para programar jogos, é fundamental conhecer o có- 
digo de máquina e, particularmente, a linguagem 
DRT send ui DE RR 6 je o, 1 





ANIMAÇÃO E SINAIS GRÁFICOS 


Produza seus próprios “desenhos animados”, traba- 


lhando com caracteres gráficos. ............. 3 
NÚMEROS AO ACASO 


Muitos programas de jogos são criados segundo a 
fórmula dos números aleatórios. Veja como isso 
acontece e aprenda a usar variáveis e a fazer compa- 
ECOS DME. mate pa cpa vs usa e DE TR 10 





ESCREVA CARTAS SEM ESFORÇO 


Como produzir cartas em série, ao mesmo tempo pa- 
dronizadas,e personalizadas... ............. e; 
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PLANO DA OBRA 


“INPUT” é uma obra editada em fascículos semanais, e cada 
conjunto de 15 fascículos compõe um volume. A capa para enca- 
dernação de cada volume estará à venda oportunamente. 


COMPLETE SUA COLEÇÃO 


Exemplares atrasados, até seis meses após o encerramento da coleção, poderão 
ser comprados, a preços atualizados, da seguinte forma: 1. Pessoalmente — por 
meio de seu jornaleiro ou dirigindo-se ao distribuidor local, cujo endereço po- 
derá ser facilmente conseguido junto a qualquer jornaleiro de sua cidade. Em 
São Paulo os endereços são: Rua Brigadeiro Tobias, 773 (Centro); Av. Industrial, 
117 (Santo André); e, no Rio de Janeiro: Rua da Passagem, 93 (Botafogo). 2. Por 
carta — Poderão ser solicitados exemplares atrasados também por carta, que deve 
ser enviada para DINAP — Distribuidor Nacional de Publicações — Números 
Atrasados — Estrada Velha de Osasco, 132 (Jardim Tereza) — CEP 06000 — 
Osasco — São Paulo. 3. Por telex — Utilize o nº (011) 33670 ABSA. Em Portu- 
gal, os pedidos devem ser feitos à Distribuidora Jardim de Publicações Ltd. — 
Qta. Pau Varais, Azinhaga de Fetais — 2685, Camarate — Lisboa; Tel. 257-2542 
— Apartado 57 — Telex 43 069 JARLIS P. ; 

Não envie pagamento antecipado. O atendimento será feito pelo reembolso postal 
e o pagamento, incluindo as despesas postais, deverá ser efetuado ao se retirar 
a encomenda na Agência do Correio. Atenção: Após seis meses do encerramento 
da coleção, os pedidos serão atendidos, dependendo da disponibilidade de es- 
toque. Obs.: Quando pedir livros, mencione sempre o título e/ou o autor da obra, 
além do número da edição. 


COLABORE CONOSCO 


Encaminhe seus comentários, críticas, sugestões ou reclamações 
ao Serviço de Atendimento ao Leitor — Caixa Postal 9442, 
São Paulo — SP. 
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Utilizado na programação de jogos, 
o código de máquina proporciona 
uma ação rápida e contínua. 

Antes de empregá-lo, porém, você 
deve saber como ele afeta 

o desempenho do seu computador. 


O BASIC constitui sem dúvida a mais 
difundida e popular linguagem de pro- 
gramação. Universalmente. conhecido, 
ele é fácil de aprender e pode ser adap- 
tado a diferentes máquinas. Seus pro- 
gramas, contudo, ocupam grandes espa- 
ços de memória e permitem apenas um 
movimento de cada vez. Assim, se um 
canhão atira, num jogo de guerra, o res- 
to da ação tem que esperar, mesmo que 
seja por uma fração de segundo. 

O BASIC usa palavras da linguagem 
humana, tiradas do inglês, e operações 
semelhantes às da aritmética, fáceis de 
compreender. Mas seu computador não 
pensa em inglês nem entende os simbo- 
los aritméticos. Ele opera baseado em 
impulsos elétricos que representam nuú- 
meros. E essa conversão é a causa de sua 
lentidão ao trabalhar com o BASIC. 

Código de máquina é uma linguagem 
computacional composta apenas de nú- 
meros equivalentes aqueles que o com- 
putador utiliza. Assim, quando você 
emprega esse código não deve esperar 
que o computador responda em lingua- 
gem humana. 

Consideremos um exemplo extraido 
dos computadores compatíveis com o 
Sinclair Spectrum; o código de máqui- 
na se parecerã com isto: 


B9 28 08 
Em BASIC o equivalente é: 
100 IF A=C THEN GOTO 190 


O código de máquina consiste, desse 
modo, numa série de números de dois 
dígitos. A letra B da linha acima é, na 
realidade, um símbolo. Ela representa 
O numero 11, em notação hexadecimal. 

Esses números hexadecimais são in- 
troduzidos na memória do computador. 
Instruções de operação, dados, núme- 
ros, letras, palavras e endereços de me- 
mória são representados por sinais de 
dois digitos. E o computador identifica 
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a diferença entre essas informações pe- 
la ordem em que eles ocorrem no pro- 
grama. Por exemplo, o primeiro núme- 
ro em qualquer programa precisa repre- 
sentar uma instrução, Se, por engano, 
você digitar um número qualquer nesse 
ponto, representando um dado ou um 
endereço de algum dado, o computador 
tentará interpretá-lo como uma instru- 
ção valida, A digitação desses numeros 
exige, portanto, uma precisão absoluta; 
caso contrário, o programa não funcio- 
nará. 


VANTAGENS DO CÓDIGO DE MÁQUINA 





Quando você digita uma linha em 
BASIC, o computador tem que transpô- 
la para sua própria linguagem, antes de 
executá-la. Este é um processo trabalho- 
so que toma muito tempo, pois uma ins- 
trução em BASIC raramente é traduzi- 
da para um só comando ou declaração 
em código de máquina. Ela resulta, com 
frequência, em vários códigos de ope- 
ração, 
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Quando se executa um programa 
completo escrito em BASIC, cada linha 
tem que ser interpretada sequencialmen- 
te. O computador não armazena os re- 
sultados dessa tradução; se a mesma li- 
nha for executada novamente, o com- 
putador terá que interpretá-la outra vez. 

sempre que o computador encontra 
uma instrução em BASIC, executa as se- 
guintes tarefas: 


e reconhecer a instrução em BASIC; 


º traduzir essa instrução para uma sé- 
rie de outras em código de máquina; 
º executar as instruções, uma a uma; 


e passar para a próxima linha do pro- 
grama em BASIC, 


Repetido muitas vezes, esse proces- 
so torna-se lento e moroso. E possivel, 
porém, compilar um programa em BA- 
SIC, isto é, traduzi-lo integralmente pa- 
ra código de máquina, de uma só vez, 
antes de executá-lo, armazenando a tra- 
dução. A compilação é mais eficiente | 
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que a interpretação, mas Os programas 
resultantes são ainda bastante lentos. 

Em contrapartida, a tradução do 
programa em código de máquina dire- 
tamente para a operação interna do 
computador quase não consome tempo. 
Nesse caso, hã uma simples conversão 
de um número em outro, e não a tradu- 
ção de um comando de linguagem em 
vários outros de código de máquina. Os 
programas tornam-se, assim, mais cur- 
tos e eficientes. 

Os programas abaixo fazem a mes- 
ma coisa, usando BASIC e código de 
máquina. Compare suas velocidades re- 
lativas. 


Tº 


10 CLEAR 200,31000 

20 DEFUSRO=31000 

30 FOR N=31000 TO 31015 
40 READ A 

50 POKE N,A 

60 NEXT 

70 CLSO 

B0 PRINT €0,"ISTO ESTA EM BASIC 
90 FOR N=1 TO 500:NEXT 

FOR N=1056 TO 1535 

POKE N, PEEK (N+34000) 

NEXT 

FOR N=1l TO 1000:NEXT 

CLSO 

150 PRINT 60," ISTO ESTA EM CODI 
GO DE MAQUINA.” 

160 FOR N=1 TO 1000:NEXKT 

170 N=USRO(O) 

180 FOR N=1 TO 2000:NEXT 

190 DATA 206,136,240,142,4,32,1 
66,192,167,128,140,6,0,38,247,5 
7 


Atenção: o programa abaixo está es- 
crito em BASIC para computadores 
com o sistema DOS (disquete) e não se- 
rã aceito pelo BASIC nível II normal 
(cassete). 

Ao ligar a máquina, responda com o 
número 60000 à pergunta “Mem.usa- 
da?', ou ainda ''Memory size?'" (para 
computadores com 48 Kbytes de memó- 
ria apenas). 


10 CLS 

20 DEFUSRO=-4536 
30 FOR N=-4356 TO 
40 READ A 

50 POKE N,A 

60 NEXT N 

0 CLS 

BO PRINT "ISTO ESTA EM BASIC” 
90 FOR I=1 TO 500:NEXT 

100 FOR N=15360 TO 16383 

110 POKE N,65 

120 NEXT N 

130 FOR N=1 TO 1000:NEXT 


-4523 


140 CLS 

150 PRINT "ISTO ESTA EM 
GUAGEM DE MAQUINA” 

160 FOR N=1 TO 1000:NEXT 

170 N=USRO (0) 

180 FOR I=1 TO 2000:NEXT 

190 DATA 33,0,60,17,1,60,1:,255, 
3,94,65,237,176,201 


10 CLEAR 29999 

20 FOR n=30000 To 30011 
30 READ a 

40 POKE n,a 

50 NEXT n 

60 PRINT "Isto 
70 FOR n=16384 
80 POKE n,PEEK 
S0 NEXT n 

CLS 

PRINT "Isto esta em Codigo 
de Maquina" 

PAUSE 100 

RAND USR 30000 

STOP 

DATA 33,0,0,17,0,64,1,0,24 
.237,176,201 

10 CLEAR200,&HDFFF 

20 DEFINTA-Z 

30 AD=LHE000:DEFUSR=AD 

40 FOR I=0TOLO 

50 READAS 

60 POKE AD+I,VAL (V&H"+AS) 

70 NEXT 

B0 DATA0E,98,ED,6B,0,1,06,FF,ED 
,[B3,€C9 

90 CLS 

PRINT "Isto esta em BASIC” 
FOR I=1 TO 1000:NEXT 

SCREEN 2 

PSET (0,0) 

FOR I=1l TO 6144 

OUT 152,BRND(1)*255 

NEXT I 

CLS 

SCREEN OQ 

PRINT"Isto esta em código d 
e máquina” 
200 FOR I=0 
SCREEN 2 
PSET(0,0) 

FOR I=1 TO 25 
240 A-USR(B) 

NEXT 

260 GOTO260 


Cato 


LIN- 


esta em BASIC” 
TO 22527 
(n-16384) 


TO 1000:NEXT 


5 HGR HOME : VTAR 24 

10 FOR I = 800 TO 836 

15 READ N 

20 POKE I,N 

25 NEXT 

30 PRINT "Isto esta em BASIC” 
35 FOR I =1 TO 300: NEXT 

40 FOR 1 = 8100 TO 14000 

45 POKE I, RND (1) * 256 











50 NEXT 

55 TEXT HGR HOME VTAB 24 
PRINT "Isto esta em linguagem 

de maquina” 


60 FOR I = 1 TO 3000: NEXT 

65 CALL 800 

70 DATA 169,0,133,20,133,22,1 
69,32 

BO DATA 133,21,169,193,133,23 
(160,255 

90 DATA 177,22,145,20,136,208 
,249,165 


100 DATA 21,201,63,208,1,96,2 
30,21,230,23,76,46,3 


Como você vai ver, tudo que O pro- 
grama faz é encher a tela de caracteres 
ao acaso (“lixo”, na gíria dos progra- 
madores). Entretanto, a velocidade com 
que a versão em linguagem de máquina 
faz isso é incomparavelmente maior do 
que a do programa em BASIC. 





LINGUAGEM ASSEMBLER 


A grande dificuldade do código de 
máquina surge quando se quer escrevê- 
lo ou depurá-lo de erros. Poucas pessoas 
conseguem lembrar-se de todos os có- 
digos numéricos e instruções. Para com- 
plicar ainda mais, os códigos de opera- 
ção (opcodes) não são distinguiveis dos 
outros números que alimentam o com- 
putador. Assim, você não consegue en- 
tender um trecho de programa, a não ser 
que o acompanhe desde o começo — o 
que não ajuda quando se está procuran- 
do erros no programa. 

Os códigos numéricos de operação, 
além disso, diferem consideravelmente 
entre si, conforme o microprocessador 
que é usado no computador, de modo 
que traduzir programas em código de 
máquina de um tipo de computador pa- 
ra outro pode ser bastante difícil. 

Uma forma de contornar esses obs- 
táculos é subir um pouco mais de nível, 
e escrever o programa em uma lingua- 
gem mais fácil de se utilizar do que o co- 





digo de máquina. Essa linguagem é co- 
nhecida como Assembly, ou linguagem 
Assembler (que vem do inglês, monta- 
gem). 

Em Assembler, os códigos operacio- 
nais são representados por abreviações 
mnemônicas (isto é, fáceis de lembrar). 
Por exemplo, a operação de carregar 
(load, em inglês) uma memória com um 
número, tem a abreviatura LD. Uma 
instrução de desvio (jump) pode ser cha- 
mada de J, JP, ou JMP, conforme a sin- 
taxe do Assembler em uso. Com algum 
treino, é possível ler programas em As- 
sembly tão facilmente quanto em BA- 
SIC, embora entendê-los seja algo mais 
complicado. 

A desvantagem da linguagem Assem- 
bler é que o computador não pode uti- 
lizá-la diretamente, como no caso do 
código de máquina. Antes disso, O pro- 
grama precisa ser montado por um As- 
sembler, ou tradutor, que é um outro 
programa escrito em linguagem de má- 
quina, ou mesmo em BASIC, 

Mas o processo de montagem é bem 
mais simples, quando comparado com 
a interpretação de linhas em BASIC. A 
linguagem Assembler é equivalente ao 
código de máquina, ou seja, cada ins- 
trução em Assembly corresponde a uma 
instrução em código de máquina. As- 
sim, a tradução do programa se proces- 
sa palavra por palavra, número por 
número, etc. diretamente para código de 
máquina. 

O Assembler também traduz o pro- 
grama como um todo, antes que o com- 
putador o execute, ao invés de 
interpretá-lo linha por linha, enquanto 


zõm mctçõãíãíãõãã 


e cu ur es = 
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o programa está rodando. Isto dá van- 
tagens adicionais de velocidade de exe- 
cução. 

Alguns computadores, como o Ap- 
ple II, já vêm com um programa embu- 
tido, chamado monitor, que permite a 
entrada de códigos de máquina e dados 
em hexadecimal. Computadores com 
programas Assembler embutidos em sua 
ROM, entretanto, já são mais raros. No 
Brasil, o TK-2000, da Microdigital, é um 
exemplo. Para os outros computadores 
(linha TRS-80, TRS-Color, MSX, Sin- 
clair Spectrum e ZX-81), existem pro- 
gramas  Assembler disponíveis 
comercialmente, em fita ou disquete. 
Você poderá utilizar também, as versões 
de Assembler para cada máquina, que 
serão fornecidas mais adiante. 

Mas, se você não tem acesso a um 
“programa Assembler, pode fazer uma 
montagem manual. Mesmo para os pro- 
gramas mais simples, é mais fácil escre- 
vê-los em Assembly, e depois traduzi-los 
manualmente para código de máquina 
em hexadecimal, usando as tabelas for- 
necidas com os manuais de programa- 
ção Assembler. 

Tudo isto pode parecer muito abor- 
recido; mas, antes de decidir que é isso 
mesmo, experimente esses programas 
em código de máquina. Eles são intro- 
duzidos via declarações DATA em pro- 
gramas BASIC. Os dados ( DATA ) es- 
tão listados no fim de cada programa. 


10 CLEAR 200,31000 

20 DEFUSRO0=31000 

30 FOR N=31000 TO 31020 

40 READ A 

50 POKE N,A 

60 NEXT 

70 N=USRO(O) 

B0 POKE 32767,RND(256)-1 

90 FOR N=1 TO 100:NEXT 

100 GOTO 70 

110 DATA 142,4,0,206,136,184,16 
6,192,184,127,255,138,129,167,1 
28,140,6,0,38,242,57 


As restrições na configuração da má- 
quina para rodar o programa abaixo são 
as mesmas do primeiro programa. 


20 DEFUSRO- -4596 
J0 FOR N=-4536 TO 
40 READ A 

50 POKE N,A 

60 NEXT N 

70 N=USR(0) 

80 POKE -4534,RND(20) 

90 GoToO 70 

100 DATA 33,0,0,17,0,60,1,0,4, 
237 ,176, 201 


-4525 
















































10 CLEAR 29999 

20 FOR n=30000 TO 30020 

30 READ a 

40 POKE n,a 

50 NEXT n 

60 RAND USAR 30000 

70 GOTO 60 

80 DATA 17,0,88,46,0,237,95, 
71,58,140,92,128,230,63,103,1 
10,3,237,176,201 


io 


10 CLEAR200,&HDFFF 

20 DEFINTA-Z 

30 AD=.HE000:DEFUSR=AD 

40 FOR I=0TOlO 

50 READAS 

60 POKE AD+I,VAL("LH"+AS) 

70 NEXT 

BO DATA0E,98,ED,6B,0,1,06,FF,ED 
/B3,C9 

90 FOR 1I=0 TO 1000:NEXT 

100 SCREEN 3 
PSET(0,0) 
A=USR(B) 
GOTO 120 
FOR 1=0 TO 
SCREEN 3 
PSET(0,0) 
A=USR(B) 
Goto 240 


Um aviso para quem for utilizar o 
programa acima: o programa em lingua- 
gem de máquina altera alguns endere- 
ços importantes da memória de traba- 
lho do micro. Por isso, é impossível 
listá-lo depois de rodar uma vez. Assim, 
você deve digitar o programa e gravá- 
lo em fita ou disquete, antes de rodá-lo. 

Para rodar no TK-2000, é necessário 
fazer as seguintes modificações: todos 
os valores 17, que aparecem dentro das 
declarações DATA, devem ser mudados 
para 20, e todos os valores 18, para 21. 

Deste modo ele não se autodestrói. 


1000:NEXT 


10 FOR I = 800 TO 840 

20 READ N 

30 POKE I,N 

40 NEXT 

50 GR 

60 CALL 800 

70 DATA 169,0,133,17,169,193, 
133,18,160 

80 DATA 40,162,40,177,17,41,1 
5,32,100 

90 DATA 248,138,32,0,248,1936, 
208,242,202 


100 DATA 208,239,169,254,197, 
18,208,1,96,230,18,76,40,3 
Agora, apenas para comparar, tente 
escrever um programa similar em BA- 
SIC. Acreditamos que você entenderá 
nossas razões. E mais tarde, veremos o ER 
que acontece aqui. 

















ANIMAÇÃO E 
SINAIS GRÁFICOS 








| Programar jogos pode se revelar uma 


atividade fascinante. Mas não é certa- 
mente das mais fáceis. Por isso, você de- 
ve começar com coisas simples e ir avan- 
cando pouco a pouco. Esse procedimen- 
to lhe ensinará a pensar de maneira ló- 
gica, melhorando suas qualidades de 
programador. E o que vamos aprender 
nesta série de lições, até chegar ao de- 
senvolvimento de jogos profissionais e 
complexos. 

A primeira coisa que você precisa 
aprender para programar jogos, afora 
a linguagem BASIC, é a técnica de ani- 
mação, pois a maioria dos jogos mais 
interessantes é do tipo “videogame”, is- 
to é, tem algum tipo de ação. 

Para criar a ilusão de movimento, o 
programador usa praticamente as mes- 
mas técnicas empregadas na elaboração 
de desenhos animados. Ele cria duas ou 
mais imagens e as alterna rapidamente 
— cerca de 24 vezes por segundo. 

Existe, porém, uma diferença impor- 
tante. Na animação de um desenho, o 
projetor é responsável pela eliminação 
das imagens desnecessárias, O mesmo 
não acontece com a animação por com- 
putador: neste caso, qualquer segmen- 
to de um desenho que você “projete” 
permanecerá na tela, a não ser que vo- 
cê imprima alguma coisa sobre ele, pois 
o computador não pode colocar, simul- 
taneamente, duas imagens na mesma 
posição. 

Por exemplo, se a linha 10 diz ao 
computador para colocar um 4 em um 
determinado lugar, qualquer linha im- 
pressa posteriormente — digamos um B 
—, no mesmo local, apagará o A. 

Mas, e se não houver nada que você 
queira imprimir no lugar do caractere 
indesejado? Então você deve se lembrar 
de incluir no seu programa uma linha 
que coloque um espaço em branco na 
posição de interesse. Caso isso não seja 
feito, seu vídeo logo estará repleto de in- 
cômodos pedaços de braços, pernas e 
corpos! 

Há grandes diferenças entre os com- 
putadores na maneira de se obter os ca- 
racteres (sinais) gráficos na tela, Os ca- 
| racteres gráficos padronizados variam 
| muito em tipo e disposição, assim como 
'a maneira como são impressos na tela, 
e como são movimentados. 







Uma animação muito simples, que 
ilustra os princípios da produção de efei- 
tos de movimentação na tela do micro, 
é a do pequeno “inseto rastejante”” (ve- 
ja abaixo). Nas páginas seguintes mos- 
traremos como conseguir esse efeito pa- 
ra diversos tipos de computadores. 


: 3) 11) 12d 3] 
Rua 0O0OO< 000«< 000< 
| Pk) ::) E 


Para criar a figura do inseto na tela, 
programe o TRS-Color ou compatível 
(por exemplo, o Prológica CP-400), co- 
mo segue abaixo. A declaração PRINT 
O (pronuncia-se “print arroba” ou 
“print em”) é a maneira que o BASIC 
do Color tem para exibir um ou vários 
caracteres em um ponto específico da te- 
la. O número que se segue após o sinal 
O é a posição na tela, que começa de 
O, no canto superior direito, e aumenta 
de um em um da esquerda para direita 
e de cima para baixo, Como a tela do 
Color tem apenas 32 colunas, a primei- 
ra linha tem posições O indo de 0 a 31. 
A posição 32 já se situa na primeira co- 
luna da segunda linha e assim por 
diante. 

5 CLS 

10 PRINT €238,"000” 
20 PRINT €206,")))” 
30 PRINT 6241,"<” 
40 PRINT €270,"7)))7 

Este programa é uma forma bastan- 
te elaborada de criar uma imagem mui- 
to simples, mas ele ilustra alguns pon- 
tos interessantes: 

Em primeiro lugar, ele lhe dá uma 
idéia a respeito das posições relativas na 
tela. O meio do inseto está, aproxima- 
damente, no centro do vídeo, na locali- 
zação 239. Como você vê, estamos usan- 
do caracteres “normais” (isto é, dispo- 
níveis no próprio teclado padrão, como 
a letra O, o sinal de parênteses, etc.) pa- 
ra compor a figura do “bicho”. 

Além disso, ele mostra o que acon- 
tece quando fazemos com que o com- 
putador imprima mais que um caracte- 
re em uma única posição de tela — ele 
simplesmente vai em frente e coloca os 
próximos caracteres nas posições subse- 
quentes (de numeração maior). Isto ex- 


Se você quer dar mais vida aos seus | 
jogos, comece a trabalhar 

com os caracteres gráficos mais | 
simples, que já vêm programados na 
memória do seu computador. 

















plica por que as “antenas”” da linha 30 
estão em 241. As posições 238-240 já es- 
tão ocupadas pelo corpo do inseto, 
Existe uma maneira melhor de dese- 
nhar o inseto, que é condensar o pro- 
grama acima em uma única linha. E, se 
você ainda não descobriu, o TRS-Color 
tem uma abreviação para PRINT: o ca- 
ractere '*'?””, Quando o programa é lis- 
tado, a máquina mostrará PRINT ao in- 
ves decr A 
O programa simplificado fica assim: 


20 PRINT 86238,"000<": PRINT e206 | 
+")))": PRINT 6270,")))” 


Se você acrescentar mais duas li 
obterá alguma animação: 


133) 
0DOO < 
a 
20 PRINT €238,"7000<":PRINT e20 

"(((": PRINT 6270," (((" ps 
30 GOTO 10 E 

A execução deste programa produz” 
uma imagem tremida e pouco nitida que | 
não se parece nem um pouco com ani- 
mação. A razão disso é que as imagens 
estão sendo trocadas rápido demais. Se 
você inserir um laço FOR...NEXT no 
programa, ele fará com que o compu- 
tador pare e conte, deixando a anima- | 
ção mais clara. Qualquer número pode p 
ser usado com os laços FOR...NEXT (li- | 
nhas 15 e 25) e não apenas 15. Outros 
números resultarão em uma espera 
maior ou menor. 

Experimente adicionar estas linhas: 


v 
15 FOR L=1 TO 15 , 
17 NEXT L | 
25 FOR L=1 TO 15 | 
27 NEXT L v 


Agora você tem um inseto que esper- 
neia incessantemente, um tanto sem ra- 
zão; apesar disso, a tela nos mostra uma 
animação convincente. 


GRÁFICOS DE BAIXA RESOLUÇÃO | 





Você pode usar os caracteres gráficos 
de baixa resolução do seu computador 
para criar figuras animadas mais inte- 
ressantes, O Manual do Usuário mos- 
tra quais são esses caracteres. Cada um 
deles tem um código (um valor de 128 
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a 143 para os micros da linha TRS- 
Color). Para mostrá-los no vídeo você 
usa a função CHRS$ seguida do código 
do caractere entre parênteses. 

Por exemplo, para imprimir o carac- 
tere representado pelo código 138 no 
meio da tela, digite: 


10 PRINTe 239, CHA$(138) 


DDD sUUUSUIL] 
so [JM] [Ji a] ] 
«AMAM cMPEREFS 
so 12 
Ds O O 


Como construir o seu satélite. 


O 


O programa seguinte utiliza caracte- 
res gráficos de baixa resolução para ani- 
mar um satélite rotatório (a fig. | mos- 
tra os dois desenhos que são alternados 
no programa). 


10 CLEAR 500:CLS 

20 PRINT 8174,CHAS (144) tcHARS(I4 
1): PRINTE178,CHAS (143) 

30 PRINT €206,CHRS(140) +CHAS(13 
2) +CHRS (141) 

40 PRINT R&23J6,CHAS(137)+CHRS(12 
9)+CHRS (129) +CHRS (129) +CHARS (129 
J+CHAS (129) +CHRS (141) 

50 PRINT 6268,CHAS5 (135) +CHRS (13 
2) +CHR$ (132) +CHAS (132) +CHRS (132 
J+CHAS (133) +CHRS (135) 

60 PRINT 8300,CHAS(143):PRINTE3 
03,CEHRS(133):PRINT €305,CHAS (14 
3)+CHRS (143) 

70 FOR X=1 TO 20 

BO NEXT X 

90 PRINT €173,CHAS(141):PRINTe) 
77, CHR$S (141) 

100 PRINT €205,CHRS (139) +CHRS (1 
40) +CHAS (140) +CHRS (137) 

110 PRINT 8236,CHR$ (138) +CHARS (1 
30) +CHAS (130) +CHRS (130) +CHRS (13 
0) +CHRS (130) +CHRS (143) 

120 PRINT €268,CHAS (139) +CHRS (1 
36) +CHRS (136) +CHR$S (136) +CHRS (13 
6) +CHRS (137) +CHRS$ (143) 





| COMO NUM DESENHO ANIMADO 
dE | APRENDA A USAR 


CARACTERES GRÁFICOS 


130 PRINT €300,CHRS(137):PRINTE 
303,CHRS(143): PRINT €305,CHRS (1 
39) +CHAS (141) 
140 FOR X=1 TO 20 
150 NEXT X 
160 GOTO 10 

Não se preocupe com a linha 10 do 
programa. CLEAR 500 reserva espaço 
na memória para as cadeias de caracte- 
res dos códigos CHRS$ e CLS. Examine 
os sinais gráficos representados pelos có- 
digos após CHRS$ no programa e tente 
entender como a espaçonave foi cons- 
truída. A instrução * + CHRS$S ( )' sig- 
nifica 'PRINT CHRS ( ) na próxima 
posição de tela”. 








MOVIMENTO 


Eis aqui o programa que anima o in- 
seto, movendo-o pela tela: 
10 CLS 
20 FOR N=0 TO 28 
30 PRINT 6192+N,")))":PRINT €22 
4+N,"000<" : PRINT €256+N,")))” 
40 FOR X=1 TO 10 


50 NEXT X 
60 PRINT E192+N,” ": PRINT €22 
4+N,” ": PRINT €256+N,” E 


70 PRINT €192+N," (((": PRINT 622 
4+N,"000<” : PRINT €256+N," (((” 
BO FOR X=1l TO 10 
90 NEXT X 
100 PRINT €192+N,” ": PRINT é 
24+N," ": PRINT 6256+N," , 
110 NEXT N 
120 GOTO 20 

Existem três laços FOR...NEXT no 
programa. Os dois que utilizam X dimi- 
nuem a rapidez de impressão fazendo o 
computador contar até dez; o que usa 
N faz com que o inseto se mova na tela. 

Você pode não ter entendido por que 
a linha 20 mostra FOR N = 0 TO 28 se 
existem 32 posições disponíveis em ca- 
da linha da tela. A razão para isso é que 
o inseto tem quatro espaços de compri- 
mento, e, se houvesse mais que 28 na li- 
nha 20, a antena apareceria no lado 
oposto do vídeo, uma linha abaixo. Is- 
to acontece devido ao modo com que as 
posições de tela são numeradas. A po- 
sição 32, por exemplo, é a primeira da 
segunda linha, a partir do topo da tela. 

As linhas 60 e 100 parecem não estar 
imprimindo nada; elas são as linhas 
“apagadoras” descritas anteriormente. 


A ad É 
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Para os micros da linha TRS-5O os 
programas acima podem ser modifica- 
dos com facilidade, bastando alterar os 
números após os comandos PRINT q, 
ja que nesses micros uma linha tem 64 
colunas, ao invês das 32 da linha Color. 

O meio da tela fica mais ou menos 
na posição 450. Subtraindo 64 dessa po- 
sição temos 386 para a posição inicial 
das perninhas de cima, e somando 64, 
obtemos 514 (para as perninhas de bail- 
xo). Finalmente, 453 nos dá a posição 
das antenas. O programa final fica 
assim: 


10 PRINT 8450,"000<" : PRINTE356, 
"1))": PRINT6514,")))" 

15 FOR L=1 TO 15 

17 NEXT L 

20 PRINT €450,"000<": PRINTE3BS, 
"(((”": PRINTeS14,"(((" 

25 FOR L=1 TO 15 

27 NEXT L 

30 GoToO 10 





TRABALHE COM CARACTERES GRAFICOS 
Estude agora com atenção tudo o que 
está dito na seção sobre o uso de carac- 
teres gráficos no TRS-Color. Ela se apli- 
ca exatamente aos micros da linha 
TRS-80, que têm apenas caracteres grá- 


.ficos de baixa resolução. 


Os truques para desenhar liguras e 
movimentá-las são iguais aos ensinados 
para o TRS-Color, ou seja, basicamen- 
te, o comando PRINT GO, e a função 
CHR$ usada em conjunto com os códi- 
gos numéricos dos caracteres graficos. 

As duas únicas diferenças são as se- 
guintes: 


— (O conjunto de caracteres gráficos 
do TRS-80 é bem maior, pois cobre os 
códigos de 129 a 191. Cada caractere é 
a combinação de seis pontos em uma 
grade de três de altura por dois de lar- 
gura (o TRS-Color possui caracteres 
gráficos em uma grade de 2 x 2, ou se- 
ja, com combinações de quatro pontos 
por caractere). 


— Como dissemos acima, O número 
de posições O na tela também é maior: 
1024 (dezesseis linhas de 64 colunas 
cada). 


Os efeitos gráficos de baixa resolução 
no TRS-80 são potencialmente mais ri- 
cos e detalhados do que o Color (com 
apenas uma desvantagem para o primei- 
ro: não podemos escolher a cor dos ca- 
racteres gráficos no TRS-80, que tem o 
vídeo monocromático). 

Experimente fazer um programa 
igual ao do Color, para traçar o satélite 
(combinação de vários CHRS$), e depois 
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O corredor em duas posições. 


faça algo mais difícil: animar um cor- 
redor de maratona. A definição da fi- 
gura do corredor em caracteres gráficos 
da linha TRS-80 pode ser vista na fig. 2 











pi 





Abaixo vemos como programar o pe- 
queno ''monstro rastejante”' para qual- 
quer micro da linha Sinclair (por exem- 
plo, o TK-85 ou o TK-90X). Para co- 


meçar, tente criá-lo numa posição es- 
tatica: 
JU PRINT AT 10,15; 7000" 

PRINT AT 92,15;")))" 


O PRINT AT ll, 
40 PRINT AT 10,18;"< 

O programa usa a declaração PRINT 
AT, que serve para colocar em algum 
ponto da tela um caractere ou conjunto 
de caracteres. Os numeros que se se- 
guem à declaração PRINT AT represen- 
tam o número da linha onde ficará a 
figura (que vai de O a 21), e o número 
da coluna (que vai de O a 31). Assim, 
PRINT AT 10,6; “A'”', por exemplo, 
pede ao computador para escrever a le- 
tra A na posição definida pela linha 10 
e pela coluna 6 da tela (um quadricula- 
do imaginário, como em um Jogo de 
“batalha naval”), 

Ele mostra o efeito de ordenar ao 
computador que imprima mais que um 
caractere numa mesma posição da tela: 
ele simplesmente avança e imprime os 
caracteres seguintes nas posições vizi- 
nhas. Esta é a razão pela qual as '“'ante- 
nas” do inseto na linha 40 estão em 
10,18. As localizações 10,15; 10,16 e 
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10,17 já estão ocupadas pelo corpo do 
inseto. 

Uma maneira mais conveniente de 
compor o inseto consiste em condensar 
as instruções acima em uma única linha; 
desta forma (só vale para o TK-90X): 


10 PRINT AT 10,15;"000<";AT 9 
ASSES TATA AS) 


Adicione agora mais duas linhas e vo- 
cê terá animação: 

20 PRINT AT 10,15;"000<",AT 9 
185" CEC AT. 21,154" (AA 
30 GoTo 10 

Quando executar esse programa, vo- 
cê verá que ele produz uma imagem 
pouco nítida. Isso acontece porque as 
imagens são trocadas muito rapi- 
damente. 

A melhor maneira de desacelerar o 
processo é usar um laço FOR...NEXT 
que faz com que o computador conte até 
dez (ou qualquer outro número que vo- 
cê queira). Antes de imprimir a imagem 
seguinte. Experimente, então, adicionar 
estas linhas ao seu programa (no TK-85 
use 2 ao invés de 10): 

15 FOR L=1 TO 10 
17 NEXT L 


25 FOR M=1 TO 10 
£! NEXT M 


Você pode variar a duração da pau- 
sa simplesmente mudando “1 TO 10º pa- 


dedbaãs p À 


tt é NE À Eu 
da pç eg E E ; 
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ra 1 TOS' ou'1 TO 20", por exemplo. 
O inseto criado até agora pode pare- 
cer inútil e estúpido, pois esperneia co- 
mo louco mas não se move. Mais 
adiante veremos como essa situação se 
modifica (seção MOVIMENTO). 





“COMO ANIMAR UMA FIGURA 


Uma animação mais interessante po- 
de ser produzida utilizando os caracte- 
res gráficos padrão da linha Sinclair. Te- 
mos um exemplo na fig. 2. 

O programa completo é dado mais 
abaixo; no entanto, se você não está ha- 
bituado aos simbolos gráficos, será in- 
teressante criar, inicialmente, uma figu- 
ra estática, compondo uma linha de ca- 
da vez, deste modo: 


1 PRINTIAT 5,15/;70” 
2 PRINT AT 6,14;" 


. € assim por diante. 

Encontrar esses caracteres gráficos é 
relativamente fácil. Para obter aqueles 
da linha 2 acima, por exemplo, tecle 
CAPS SHIFT (SHIFT no TK-85) e 9, 
simultaneamente. Isso o coloca no mo- 
do gráfico indicado pelo G piscando na 
tela. Então, no TK-90X, pressione 
CAPS SHIFT e 6 juntos para obter uma 
versão invertida — preto no lugar do 
branco — do simbolo da tecla 6; depois 
CAPS SHIFT e 8 e 6 sozinhos. No 





TK-85 pressione SHIFT e T; SHIFT e 
SPACE; SHIFT e Y. Finalmente, tecle 
9 para deixar o modo gráfico antes de 
inserir as aspas no fim da linha, 

Aqui temos o programa completo pa- 
ra formar a figura: 


10 PRINT AT 5,14;"LJOL]";AT 6, 
14;"igé AT 7. 14; "E: 
AT B,l4; E Tl 


20 PRINT AT 5S,l4;"LIOLI";AT 6, 


rasgar Pora: a: 
AT 8,14;"MRU E 
30 goto 10. 


É possível que você sinta necessida- 
de de inserir novamente um laço 
FOR...NEXT depois da linha 10 e ou- 


tro após a linha 20 para desacelerar a 
ação. 


JOL LO | 
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Um dançarino feito de doze quadrinhos. 










MOVIMENTO 


Agora que você já sabe animar uma 
figura, podemos passar ao programa 
que faz com que ela se mova pelo video: 


10 FOR N=0 TO 27 
20 PRINT AT 10,N;"OOO<";AT 9, 
N;T(CCT;AT 1L,N;T CCC 


30 PRINT AT 10,N;” "AT 9, 
N;” "AT 11,N;" = 
40 PRINT AT 10,N;"000<";AT 9, 


N;"))J)JC;AT 11,N;")))" 

50 PRINT AT 10,N;"000<C;AT 9, 
N;" "AT 11,N;” pi 

60 NEXT N 

70 GOTO 10 


Este programa também usa um laço 
FOR...NEXT, porém com uma finali- 
dade completamente diferente da do 
exemplo acima. Lá o computador fazia 
uma contagem, por frações de segundo, 
antes de imprimir uma imagem. Agora 
ele é responsável pela movimentação da 
imagem, que assume uma posição de ca- 
da vez na superfície da tela. 

E por que a linha 10 mostra “O TO 
27", se a tela do Sinclair tem, no total, 
32 posições? Para descobrir, modifique 
a linha 10 para: 


10 FOR N=0 TO 32 


Outra dúvida pode ser em relação às 
linhas 30 e 50. Experimente apagá-las e 
você logo descobrirá sua utilidade. 











1º FERE RR 


O programa que movimenta a ““tatu- 
rana” usa exatamente os mesmos carac- 
teres que os outros computadores. O 
que muda é o comando para posicioná- 
lo, que nos computadores da linha MSX 
(por exemplo o HotBit, da Sharp) rece- 
be o nome de LOCATE. Esse comando 
posiciona o cursor sobre a tela, em uma 
posição definida pelos dois números que 
se seguem ao comando LOCATE. O 
primeiro número refere-se à coluna, e o 
segundo, à linha. Assim, por exemplo, 
LOCATE 12,4 coloca o cursor na colu- 
na 12 e na linha 4. Qualquer comando 
PRINT que seja dado após isto escre- 
verá o caractere (ou caracteres) a partir 
da posição definida pelo LOCATE. 
Agora, digite O programa: 


5» CLS 

10 LOCATE 18,10:PRINT 
20 LOCATE 18,9:PRINT ")))” 
30 LOCATE 21,10:PRINT "<” 
40 LOCATE 18,11:PRINT ")))” 
42 FOR I=l TO 30 

47 NEXT I 

50 LOCATE 18,10:PRINT "000" 
60 LOCATE 18,9:PRINT "(((” 
70 LOCATE 21,10:PRINT "<” 
BO LOCATE 18,11:PRINT "(((” 
B2 FOR I=1 TO 30 

8/7 NEXT 1 

90 GOTO 10 


"000" 


Quando o programa é executado, vo- 
cê pode observar a figura do “inseto” 
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vibrando rapidamente. Ela é criada pe- 
la sobreposição dos dois conjuntos de 
caracteres, que estão nas linhas com o 
comando PRINT. Ao mesmo tempo, o 
comando GOTO, na última linha, faz 
com que o programa se repita indefini- 
damente, pois retorna sempre ao seu ini- 
cio. 

O movimento das patinhas da “'ta- 
turana” é bastante veloz, e quase não dá 
para perceber o efeito da animação. Por 
isto, precisamos dar um jeito para dimi- 
nuir a velocidade, A maneira mais fácil 
de se fazer isto é utilizarmos a declara- 
ção FOR...NEXT, que cria um laço de 
repetição 'no vazio”, isto é, apenas pa- 
ra gastar um pouco de tempo (explica- 
remos na próxima lição de programação 
BASIC como se usa este tipo de laço). 

Assim, introduza a linha: 


45 FOR T=1 TO 100 : NEXT 


A seguir, rode o programa e observe 
como o efeito de movimentação das pa- 
tas tornou-se muito mais lento. Isso foi 
possível porque o laço criado na linha 
45 funciona como um contador — nes- 
te caso, contando até 100, quando en- 
tão, ao terminar a contagem, prossegui- 
rá executando o programa a partir da h- 
nha 50. 

Pode-se variar a duração dessa pau- 
sa simplesmente mudando-se o número 
100 para outro qualquer. Quanto maior 
for esse valor numérico, maior será o re- 
tardo de tempo provocado. 





IMAGENS EM MOVIMENTO 


O próximo passo é alterar o progra- 
ma de forma que o corpo do inseto se 
movimente pela tela. Para isto, utiliza- 
mos a declaração LOCATE, já descrita. 

Neste caso, usaremos uma variável 
para fazer com que a função LOCATE 
mude continuamente a posição do cur- 
sor, de modo que os PRINT's que pro- 
duzem a imagem dêem a impressão de 
deslocamento. Para fazer variar o valor 
desta variável que afeta o LOCATE, 
usamos um outro laço FOR...NEXT 
mais externo âquele que anima o bichi- 
nho: 


10 FOR N=0 TO 36 

20 LOCATE N,15: PRINT "000<” 
30 LOCATE N, 14: PRINT "(((" 
40 LOCATE N, 16:PRINT "(((" 
S0 LOCATE N,15:PRINT * ” 
60 LOCATE N,14:PRINT * q 
70 LOCATE N,16:PRINT ” ai 
BO LOCATE N,15: PRINT "000<" 
90 LOCATE N,14:PRINT ")))" 
100 LOCATE N, 16:PRINT ")))" 
110 LOCATE N,15:PRINT * E 
120 LOCATE N, lá: PRINT * ” 
130 LOCATE N,16:PRINT ” " 
140 NEXT N 


O que fizemos foi simplesmente tro- 
car o comando GOTO na linha 90 do 
programa anterior pelos comandos 
FOR...NEXT, que aumentam de um em 





um o valor da variável P, cada vez que 
o programa se repete. Como FP é argu- 
mento da instrução LOCATE (indexan- 
do o número de linha, ou o eixo X), Is- 
to faz a figura se movimentar um passo 
para a direita, a cada ciclo do programa. 

As linhas 50, 60, 70, 110, 120 e 130 
apagam as posições antigas do inseto. 
Retire-as e veja o que acontece. 

Quando você roda o programa, o in- 
seto atravessa a tela e pára em sua mar- 
gem direita. Para fazê-lo voltar à origem 
e começar o “passeio” novamente, ex- 
perimente digitar a seguinte linha adi- 
cional ao programa acima: 


160 GOTO 10 





COMO CHEGAR AOS CARACTERES GRÁFICOS 





Os computadores da linha MSX tem 
um grande conjunto de caracteres grá- 
ficos à disposição do programador do- 
tado de instinto exploratório. Eles são 
digitados a partir do próprio teclado, e 
podem ser usados para criar figuras e 
desenhos mais elaborados. 

Para ter acesso a estes caracteres, vo- 
cê deve utilizar as teclas GRAPH, CO- 
DE e SHIFT, juntamente com as demais 
teclas do teclado. No manual do seu 
computador podem ser encontradas 
“mapas” do teclado, que indicam as te- 








clas associadas a cada caractere 
existente. 

Agora, tente digitar alguns caracte- 
res gráficos. O símbolo de espadas do 
baralho, por exemplo, pode ser obtido 
pressionando-se as teclas GRAPH e € 
(cedilha). O simbolo do naipe de ouro 
pode ser obtido pressionando-se as te- 
clas SHIFT, GRAPH e €C simulta- 
neamente. 

O programa abaixo faz a animação 
gráfica de um helicóptero visto de cima, 
demonstrando como podem ser usados 
os caracteres gráficos dos MSX. 


gráfico 


PROGRAMAÇÃO DE JOGOS 


Os possuidores de micros compatíveis 
com a linha Apple [I e derivados, bem 
como os que têm um Microdigital 
TK-2000, podem rodar os mesmos pro- 
gramas listados acima para os micros da 
linha MSX. Algumas modificações, po- 
rém, devem ser feitas, face às diferen- 
cas dos modelos: 


e todos os comandos CLS (usados 
para limpar a tela) devem ser substitui- 
dos pelo comando equivalente HOME. 
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5 CLS 

10 LOCATE 13,5:PRINT N » 

20 LOCATE 13,6:PRINT ? N " 

30 LOCATE 13,7:PRINT y A «a ' as 

40 LOCATE 13,8:PRINT ERR SO 1 Sade 4, "va 

50 LOCATE 13,9: PRINT j pato) " sDDEDSE 

60 LOCATE 13,10:PRINT y Es À ? | | | 
70 LOCATE 13,11:PRINT A a CR E oc ” «EO IDE ES rio 
80 LOCATE 13,12: PRINT É N ” Como construir um helicóptero. 

90 LOCATE 13,13:PRINT g N ' 

100 LOCATE 13,5:PRINT ' / y * nos micros da linha Apple não há 
110 LOCA. 2 13,6: PRINT j / "  ainstrução LOCATE, mas ela pode ser 
120 LOCATE 13,7: PRINT nd o O air, reis A "substituída por duas outras, que são 
130 LOCATE 13,8:PRINT j mec da/ 4 —  HTABe VTAB (tabulação horizontal e 
140 LOCATE 13,9:PRINT ã —XXXXXX E) vertical, respectivamente). 

150 LOCATE 13,10:PRINT = T' Escas duas funcões ei 5! 2d 
160 LOCATE 13,11:PRINT ” DD E o ssas duas iunções contro am O po- 
170 LOCATE 13,12:PRINT / »  Sicionamento horizontal e vertical do 
180 LOCATE 13,13:PRINT ” Ê " cursor, antes de dar um PRINT. O co- 


mando HTAB é acompanhado de um 
número entre 1 e 40, que determina a co- 
luna de posicionamento; já o comando 
VTAB faz o mesmo com a linha (de | 
a 21), 

Assim, por exemplo, onde está escri- 
to, no programa para o M5SX: 


190 GOTO 10 


20 HTAB 18:VTAB 10:PRINT "000" 


substitua por: 


20 LOCATE 18,10:PRINT "000" 


O programa do helicóptero não po- 
de ser introduzido em micros da linha 
Apple, pois estes não possuem caracte- 
res graficos, O mesmo não acontece com 
o TK-2000, cujos caracteres estão dis- 
poniveis atraves do teclado, ao se pres- 
sionar as teclas <CONTROL> e B, 
simultaneamente, ou por meio da fun- 
ção CHRS$ (442), através de programa. 
Consulte o manual do TK-2000 e iden- 
tifique os códigos dos caracteres usados 
nesse programa, 

Se você quiser inventar novas figuras, 
basta usar os gráficos da tabela existen- 
te no manual ou os caracteres padroni- 
zados do teclado, ou os dois juntos. Ca- 
so seu computador seja diferente dos 
mencionados acima, proceda da seguin- 
te maneira: desenhe as figuras em papel 
quadriculado e faça seu próprio progra- 
ma, utilizando os caracteres gráficos dis- 
poníveis no seu computador. 











PRE ET O 





Pense em um número ao acaso: é assim, 


aleatoriamente, que muitos 
jogos são criados pelo computador. 


Ninguém aprende a jogar lutebol 
praticando apenas uma jogada de cada 
vez, para só entrar numa partida quan- 
do todos os lances possiveis estiverem 
assimilados. Se alguém escolhesse esse 
método, teria de esperar a vida inteira, 
pois o número de jogadas possiveis é 
praticamente infinito, 

O mesmo, felizmente, não acontece 
com a programação de computadores, 
que pode ser aprendida de modo gra- 
dual. Assim, Os manuais que acompa- 
nham os computadores ensinam uma 
função ou comando de cada vez. Você 
pode aprender por ele, se quiser. Mas a 
forma mais divertida de fazer isso é co- 
meçar a jogar desde Oo começo, apren- 
dendo na prática. 

O jogo mais fácil de ser programado 
em um micro doméstico é aquele em que 
o computador “inventa” um numero 
aleatório (ao acaso), e o jogador tenta 
adivinha-lo. 


“A FUNÇÃO RND 


Os computadores domesticos têm um 
gerador de números aleatórios (ou ran- 
dômicos) que permite inventar jogos. 
Ele é operado, em BASIC, pela função 
RND. Em alguns computadores, en- 
tretanto, os numeros produzidos não 
são muito uteis na sua forma original 
— são todos frações decimais entre O e 
0.99999999. Para verificar isso, digite 
este programa, teclando primeiramente 
NEW para limpar da memória qualquer 
programa já existente: 


LO LET X=AND(0) 


20 PRINT X 
30 GOTO 10 


10 LET X=RND 
20 PRINT X 
30 GOTO 10 





A FUN FUNÇÃO RND RND 
E COMOSÃO CRIADOS NÚMEROS 
ALEATÓRIOS 

APRENDA A USAR VARIÁVEIS 

A DECLARAÇÃO INPUT INPUT 





LO LET X = RND (ld) 
20 PRINT & 
30 GOTO 10 


(Lembre-se de teclar <ENTER> ou 
< RETURN > - dependendo do seu com- 
putador - após cada linha do programa.) 

Quando você executar esse programa 
(use comando RUN), vai obter uma se- 
quência de longos números decimais, 
muito distante de um jogo de adivinha- 
ção (para saber por que é assim, veja O 
quadro Perguntas e Respostas na pági- 
na 13). 

Então, como conseguir que o compu- 
tador produza somente números intel- 
ros? A resposta é muito simples: adicio- 


x = = = o SER na E | à — E — = ” 
| : | | | 
| 
| ! | | | | 
| | | | 
; ] = E —1E É. = ci . = 


EE COMPARAÇÕES COMIF... THEN 
DOIS JOGOS DE ADIVINHAÇÃO 
PARA VOCÊ PROGRAMAR 
FAIXAS DE GERAÇÃO 

DE NÚMEROS ALEATÓRIOS 


h 


nando a função INT (uma abreviação 
da palavra inglesa integer, que quer di- 
zer inteiro) a estas linhas. 


LO LET X=INT (RND*6) 


| 


10 LET X = INT ( RND (1) * 6) 
20 PRINT X 
30 GOTO 10 


[ssO val gerar números inteiros entre | 
O e 5. Nos computadores da linha 
TRS-80, não é preciso utilizar a função 
INT, pois a função RND a realiza se re- 
ceber um número inteiro positivo como [E 
argumento: E 















or 
10 LET X=RND(6)-1 
20 PRINT X 
30 GOTO 10 


(Lembre-se sempre de pressionar 
< RETURN > ou <ENTER> após di- 
gitar cada linha.) 

Qualquer que seja o computador que 
estiver usando, você não está limitado 
a trabalhar com números entre De 5, po- 
dendo escolher igualmente 10 ou 10 000 
como número máximo: o computador 
sempre sorteará um valor compreendi- 
do entre O e o número máximo es- 
colhido. 





APRENDA A USAR VARIÁVEIS 


ÃO escrever o programa acima, além 
de selecionar um número aleatório, vo- 
cé deu um nome a ele (X). Dai em dian- 
te, no programa, toda vez que o X for 
colocado, o computador ''saberá”* que 
você se refere aquele número aleatório. 

Esse nome, que permite ao compu- 
tador identificar um valor, de tal for- 
ma que possa compará-lo com outro 
número, fazer operações aritméticas 
com ele, etc., é chamado de variável. A 
variável corresponde, grosso modo, ao 
rótulo de uma caixinha individual na 
memória do computador, onde armaze- 
namos valores. 


A DECLARAÇÃO INPUT 





Em nosso joguinho, após ter gerado 
o número aleatório, O passo seguinte se- 
rá avisar o computador de modo a fazê- 
lo aceitar seu palpite. Para isso, você de- 
ve utilizar a declaração INPUT. Ela diz 
ao computador para ficar esperando até 
que alguma informação tenha sido di- 
gitada pela pessoa que está usando o 
programa. 

A declaração INPUT sozinha, entre- 
tanto, não tem sentido. Precisamos for- 
necer ao computador um nome de va- 
riável para que ele saiba como identifi- 
car o dado a ser digitado e armazenar 
o seu valor na memória. Vamos supor 
que queremos entrar um dado na variá- 
vel G (de guess, ou palpite, em inglês). 
Poderia ser perfeitamente um outro no- 
me qualquer, envolvendo uma ou mais 
letras combinadas, tal como PALPITE, 
se você achar interessante. 

Assim, a declaração completa fica da 
“maneira como segue (não a digite 
ainda): 


diSihyanansSEs 


Agora que o computador tomou co- 
nhecimento do seu palpite, pode com- 
pará-lo com o número secreto gerado 
(que está guardado na variável X). Isso 
é feito de uma forma muito simples, 
equivalente à frase: 


SE X=G ENTÃO ESCREVA"MUITO BEM!” 


Em programação BASIC fica assim: 
diSinynsanEssEs 
[E X=G THEN PRINT "MUITO BEM!" 


A declaração IF ... THEN, sem du- 
vida, é muito útil. Você vai usá-la mul- 
tas vezes na programação. 


LIST 


10 LET AS = CHOJE E! * 
o LET 6S = CQUINTA-FEIRAS 
30 LET C6 = Ad + B$ 





Os micros das linhas TRS-80, TRS- 
Color e MSX têm uma extensão a essa 
declaração que é o IF ... THEN ... EL.- 
SE (em bom português, SE ... ENTAO 
«. SENÃO). Neste caso, o programa- 
dor pede para o computador tazer algu- 
ma coisa a mais, caso a condição de teste 
(por exemplo, se os números são iguais) 
não seja satisfeita. Nos computadores 
que não têm a declaração ELSE — co- 
mo é o caso dos compatíveis com a li- 
nha Apple e com as linhas Sinclair 
ZX-81 e Spectrum — se os dois núme- 
ros não forem iguais o programa pas- 
sará automaticamente para a linha se- 
guinte âquela onde está o comando IF. 








LISTAGEM DO PROGRAMA 


Agora digite o programa abaixo (0 si- 
nal <> significa “é maior que e me- 
nor que” ou diferente de): 


20 LET X=RND(6)-1 

30 PRINT "O COMPUTADOR ESCOLHEU 
UM NUMERO ENTRE O E 5. VOCE PO 
DE ADIVINHA-LO?” 

40 INPUT G 

60 IF G=X THEN PRINT "MUITO BEM 
I"ELSE PRINT "QUE AZAR - VOCE E 
RROU!” 


Para os micros compativeis com o 


ZX-81, digite em maiúsculas. 


20 LET X=INT (RND*6) 


30 PRINT "O Computador escolh 
eu um numero entre 0 e 5. Ten 
te adivinha-lo.”" 

40 INPUT G 

60 IF G=X THEN PRINT "Muito 
bem!" 

BO IF G<>X THEN PRINT "Que 


azar - Voce errou!” 


20 LET X=INT(RND(1)*6) 

30 PRINT"O Computador escolheu 
um numero entre 0 e 5. Tente a 
divinhá-lo.” 

40 INPUT G 

60 IF G=X THEN PRINT "Muito bem 
80 IF G<>X THEN PRINT 
- Você errou!" 


“Que azar 


Rode este programa e você vera que 
já dá para jogar, mas ainda não é mui- 
to divertido. Para começar, a tela vai fi- 
cando um tanto congestionada e, o que 
é pior, o jogo acaba logo após a primei- 
ra tentativa! 

Para resolver o primeiro problema, 
você só precisa acrescentar: 


TITREE 


LO CLS 
50 CLS 


[ol 


LO HOME 
50 HOME 





A declaração CLS quer dizer “limpe 
a tela” (clear screen). Para os compu- 
tadores da linha Apple, a declaração 





Ed 


equivalente é HOME, que significa ''vá 
para casa” (no caso, o cursor vai para 
o alto da tela quando esta fica limpa). 
Assim, somente as informações novas 
aparecem no vídeo. Lidar com o segun- 
do problema é um pouco mais dificil. 
Uma forma de resolvê-lo seria colocar 
um GOTO na linha 90, de modo a rei- 
niciar O jogo automaticamente. Mas 1s- 
so faria com que a tela limpasse brus- 
camente, e o jogador não poderia ver a 
tempo a mensagem: 


ló hyananSEs 


90 GOTO 1º 








VARIÁVEIS ALFANUMÉRICAS 


Uma maneira melhor é oferecer ao 
jogador a opção de um novo jogo ape- 
nas no caso de ele o desejar. Pode pare- 
cer um pouco complicado, mas, na pra- 
tica, é bastante simples. 

Comece digitando o programa: 


nr 

10 CLS 

20 LET X=RND(6)-1 

30 PETINT "O COMPUTADOR ESCOLHEU 
UM NUMERO ENTRE O E 5. VOCE PO 
DE ADIVINHA-LO?” 

40 INPUT G 

50 CLS 

60 IF G=X THEN PRINT "MUITO BEM 
I"ELSE PRINT "QUE AZAR - VOCE E 
RROU!” 

90 PRINT "VOCE QUER TENTAR OUTR 

A VEZ?" : PRINT"SE QUISER, DIGITE 
'S' E PRESSIONECENTER>" 

100 INPUT AS 

110 IF AS="S”" THEN GOTO 10 

120 GOTO 100 


Para o programa abaixo rodar cor- 
retamente nos compatíveis com o 
ZX-Bl, digite tudo em maiúsculas e 
substitua a linha 110 por: 

110 IF A$="S" THEN GOTO 10 


10 CLS 

20 LET X=INT (RND*6) 

30 PRINT "O Computador escolh 
eu um numero entre O e 5. Ten 
te adivinha-lo.”* 

40 INPUT G 

50 CLS 

60 IF G=X THEN PRINT “Muito 
bem!” 

70 IF G=X THEN GoTo 90 

BO IF G<>X THEN PRINT “Que 
azar - Voce errou!” 

90 PRINT "Voce quer tentar ou 
tra vez? Se quiser, digit 
e S e pressione ENTER” 


| n | j = E , 
| | 
| | | | 
| | | ) 
, | | | 


100 INPUT AS 
110 IF AS="S" 
Goto 10 

120 GOTO 100 


10 HOME 

20 LET X = INT ( RND (1) * 6) 
30 PRINT "O Computador sorteou 
um numero entre 0 e 5. Sera qu 

e voce consegue advinhar 27º 

40 INPUT G 

50 HOME 

60 IF G = X THEN PRINT “Muito 
bem !" 

70 IF G < > X THEN PRINT" 

ue azar ! - Voce errou." 

90 PRINT "Quer brincar de novo 
? Se quiser, tecle '5' e apert 
e a tecla RETURN." 

100 INPUT AS 
110 IF AS = 
120 GOTO 100 


OR A$="s” THEN 


"8" THEN GOTO 10 


3.151 


140 
RR 
aa 
ER 
“a 


HRUM 


INPUT 


l 





10 CLS 

20 LET X=INT(RND(1)*6) 

30 PRINT"O Computador escolheu 
um numero entre 0 e 5. Tente a 
divinhá-lo." 

40 INPUT G 

50 CLS 

60 IF G=X THEN PRINT "Muito bem 


70 IF G=X THEN GOTO 90 
80 IF G<>X THEN PRINT "Que azar 
- Você errou!” 


Como se especificam os intervalos de 
números aleatórios? | 
As funções RND nos micros da linha 
Sinclair, RND(1) no Apple Il, TK-2000 
e MSX, e RND(0) nos compatíveis 
com o TRS-BO e Color, geram núme- 


| ros aleatórios distribuídos entre O e 


0.9999999. Se você quiser um nú- 
mero aleatório distribuido em uma fai- 
xa maior de números, multiplique o 


| número obtido através das formas 


acima por uma constante. Por exem- 
plo, para obter um número entre O e 
39.99999999, basta multiplicar a saí- 
da da função RND por 40. 

Para gerar números inteiros, use a 
função INT. Um número inteiro entre O 
e 39 é produzido através da expressão 
INT (função RND original * 40). Se vo- 
cê quiser números distribuídos entre 1 
e 40 adicione 1 à expressão anterior. 

| Nos micros da linha TRS-80, para ge- 
rar um número aleatório entre 1 e 40, 
use RND(40). 


Alguns computadores utilizam as pala- 
vras RAND, RANDOM ou RANDOMI- 
ZE. Para que servem? 

Para evitar a repetição da sequên- 
cia de números aleatórios gerada pelo 
computador. Os micros da linha 
TRS-BO têm a declaração RANDOM, e 
os da linha ZX-81, a RAND. Nestes ul- 
timos, RAND 1 (ou RANDOMIZE 1, no 
caso do Sinclair Spectrum e compatií- 
veis) assegura que a sequência aleató- 
ria seja constante. Quando usamos 
RAND ou RANDOMIZE sem argumen- 
to, ou seguidos de O, a sequência nun- 
ca se repete. 





90 PRINT "Você quer tentar outr 
a vez? Se quiser, di 
gite S e pressione RETURN" 

100 INPUT AS 

110 IF A$="S" OR AS="s” THEN GO 
TO 10 

120 GoTO 100 


Como você pode notar, primeiro se 
pergunta ao jogador (linha 90) se ele 
quer jogar novamente. Depois, para avi- 
sar o computador que espere por uma 
resposta, usa-se a declaração INPUT na 
linha 100. 

“Mas, desta vez existe uma diferença 
importante. Depois da linha 20, o joga- 
dor deu entrada a um número. Agora 
ele vai entrar um 8 (para “sim””) ou um 
N (para 'não"), ou seja, uma letra não 
e um número. 


4 





Isso significa que, na linha 100, ao in- 
vês de INPUT A você deverá usar IN- 
PUT AS. O cifrão (também chamado de 
“dólar”), designa o chamado string 
(cordão) e A$ é uma variável alfanumé- 
rica (string variable). 

Por que o $ é necessário? Para enten- 
der isso é preciso conhecer a maneira co- 
mo o computador armazena dados e tra- 
balha com entradas, o que veremos mais 
adiante. Por enquanto, O importante é 
lembrar o seguinte: quando o computa- 
dor deve esperar um número, você usa 
INPUT A, INPUT B, INPUT X ou 
qualquer outra letra; quando se trata de 
uma letra ou palavra, você deve usar IN- 
PUT AS, INPUT B$, INPUT X$ etc. 

A linha 120 foi incluída de forma 
que, se o jogador não deseja outra par- 
tida imediatamente, o computador es- 
pera até que ele queira, repetindo o pro- 
cesso até que a resposta seja igual a 8, 
Isto acontece devido ao retorno constan- 
te à linha 100 até que a tecla S seja pres- 
sionada, quebrando o ciclo. 


VOCÊ SABE TABUADA? 





A função RND tem centenas de usos 
em programação. Imagine, por exem- 
plo, que você deseje ensinar ao seu fi- 
lho ou irmão a tabuada do nove. Você 
poderia fazer o seguinte: 


[ à ] 


10 PRINT "QUANTO E 1 VEZES 97” 
20 INPUT À 
30 IF A=9 THEN PRINT “CORRETO!” 
40 PRINT "QUANTO E 2 VEZES 97" 
50 INPUT B 
60 IF B=18 THEN PRINT “CORRETO!” 
Mas, desse jeito, você teria um pro- 
grama muito longo que não resolveria 
nem mesmo o problema de como pro- 
ceder se uma das respostas estiver erra- 
da! Devemos usar a função RND, en- 
tão, para produzir um programa que se- 
ja mais compacto e faça as perguntas 
corretamente, em sequência aleatória. 
Outra recomendação importante: traba- 
lhe primeiro na parte principal do pro- 
grama, deixando os enfeites para de- 
pois. Assim, experimente agora estas li- 
nhas (lembre-se de digitar o comando 
NEW antes!): 


ENaa 


LO LET N=RND(12) 

20 PRINT "QUANTO E 

972" 

30 INPUT A 

40 IF A=N*9 THEN PRINT "CORRETO 
/ 1” 


| E 


"4N;” VEZES 





Tu | | EE | | 
| | lj | | | 
b + h -- | 
Ri 





Digite tudo o que vem abaixo apenas 
em maiúsculas, se for usar um compa- 
tivel com ZX-81: 


1O LET N=INT (RND*12+1) 


20 PRINT "Quanto e ";N;" veze 

a 97” 

30 INPUT A 

40 IF A=N*9 THEN PRINT "Corr 

etol!” 

| 

LO LET N = INT ( RND (1) * 12 
+ dd) 

20 PRINT "QUANTO E ";N;"VEZES 

dr 

30 INPUT A 

40 IF A =N+* 9 THEN PRINT "C 
ERTO !” 


10 LET N=INT(RND(-TIME)J*12+1) 
20 PRINT "Quanto é ";N;"” vezes 
WE” 

30 INPUT A 

40 IF A=N*9 THEN PRINT “Correto 
| Pr 


“PRINT 1 + a a 
PRINT Ea a | | 
da 
PRINT H 
| 
PRINT GR (ol 
RR RS DR Ts 


símbolos de computador utilizados em 
cálculos de aritmética elementar: 

o asterisco (*), e não o x, é empregado 
para indicar multiplicação; 

a barra (/) significa “dividido por; 

a flechinha para cima indica 

“elevado à potência de...” (em alguns 
computadores é um sinal circunflexo; 
em outros, dois asteriscos **), 

Em compensação, os sinais que indicam 
as operações de soma € 

subtração são seus velhos conhecidos: 
o mais (+) € o menos (—) da 
aritmética elementar. 





ET e A) 
“ola MEROS 


AaaaRA 





Note a função TIME sendo usada co- 
mo argumento da função RND. Este € 
um artifício para gerar sempre números 
aleatórios diferentes nos micros da linha 
MSX, pois TIME informa ao computa- 
dor o valor do tempo passado, em se- 
gundos, desde que o aparelho foi ligado. 

Este programa usa o gerador RND de 
forma semelhante à do jogo de adivi- 
nhação. Na linha 10, determina-se uma 
variável para o número aleatório que O 
computador escolhe. Ela foi chamada 
de N, mas poderia ser outra letra ou pa- 
lavra, desde que fosse usada sempre da 
mesma forma. Na parte direita da linha 
10, o programa diz ao computador pa- 
ra escolher um número infeiro entre | 
e 12, Nos micros da linha Sinclair, é ne- 
cessário somar 1, porque seus numeros 
aleatórios começam a partir de zero. 

Na linha 20, pede-se ao jogador que 
multiplique por 9 o número que o com- 
putador escolheu desta vez. A linha 40 
diz ao computador para multiplicar o 
número ri arar O re- 
sultado cor” a resposta dada pelo joga- 
dor (ou aluno). Se esta estiver correta, 
, computador mandará a mensagem de 
“CORRETO!” para a tela, Execute O 
programa e faça-o rodar várias vezes, 
para ver se funciona. Para que ele repi- 
ta automaticamente as questces, acres- 
cente a linha: 





50 GOTO 10 


Mas, pensando melhor, por que não 
fazemos as coisas de uma forma mais, 
elegante, como se segue? 


10 PRINT “OI. QUAL E O SEU NOME 


20 INPUT AS 

30 CLS 

40 PRINT "OLA, ";AS:PRINTTEU TE 
NHO ALGUMAS PERGUNTAS PARA VOCÊ 





SO FOR X=1 TO 3000:NEXT &X Es 90 INPUT A 

4 A 100 IF A=N*9 THEN GOTO 150 
60 CLS e DPM PRE = à 110 

Ro is EN Digite tudo o que vem abaixo apenas a o a 

F, ER 2; gr a! Li 

o RAE o em maiúsculas, se for usar um compa- PRINT A; 

BO PRINT "QUANTO E ":N;”" VEZES Civel com ZX81: à y is 130 PRINT “Tente outra vez!” 
92" | ARA | 140 goto 80 

90 INPUT A o PRINT "Oi. Qual e seu nome 150 PRINT "Muito bem, ";AS;"." 

100 IF A=N*9 THEN GOTO 150 |"Aqui vai mais uma:” 

o CEE o ad AS 160 PAUSE 150 

jet ep ato - 170 GoTo 60 

120 PRINT A; *? 40 PRINT "ola, "-AS:".”","Eu 7 

130 PRINT "TENTE OUTRA VEZ.” enho algumas perguntas para V 

140 GOTO 80 oce.- a 

150 PRINT "MUITO BEM, ":AS;"I": 50 PAUSE 200 10 PRINT "Ola.Qual e o seu nom 

; ai É 60 CLS e?" 

PRINTCAQUI VAI MAIS UMA: 70 LET N=INT (RND*12)+1 20 INPUT AS 
160 FOR X=1 TO 2Z000:NEXT XxX BO PRINT "Quanto e “;N;" veze 30 HOME EN 
170 GOTO 60 5 97º 40 PRINT "Oi ";AS: PRINT “Eu L | Ev: 








E ae a ERA Re 8 








enho algumas perguntas para voc 
e.” 
50 FOR X = 1 TO 6000: NEXT X 


60 HOME 

70 LET N = INT ( RND (1) * 10 
+ 1) 

BO PRINT "Quanto e ";N;" vezes 
97" 

90 INPUT A 

100 IF A =N* 9 THEN GOTO IS 
Õ 

110 HOME 


120 PRINT A;"?" 

130 PRINT "Errado. Tente outra 
vez” 

140 GcoTo 80 

150 PRINT "Muito bem ":;AS: PRI 
NT "Aqui vai outra." 

160 FOR X = 1 TO 4000: NEXT X 
170 GOTO 60 


a 


10 PRINT "Oi. Qual é o seu nome 


20 INPUT AS 

30 CLS 

40 PRINT "Olá, ";AS;".","Eu ten 
ho algumas perguntas para você: 


50 FOR X=1 TO 2500:NEXT X 

60 CLS 

70 LET N=INT(RND(-TIME)*12)+1 
B0 PRINT "Quanto é ";N;" vezes 
97" 

90 INPUT A 

100 IF A=N*9 THEN GOTO 150 

110 CLS 

120 PRINT A;"?" 

130 PRINT "Tente outra vez.” 
140 GOTO6BO 

150 PRINT "Muito bem, 
"Aqui vai outra:;” 

160 FOR X=-1 TO 1500:NEXT X 
170 GOTO 60 


ns ai ai 


As linhas 30, 60 e 110 evitam que a 
tela fique repleta de mensagens do com- 
putador ou de respostas erradas. As li- 
nhas 50 e 160 fazem o computador es- 
perar algum tempo antes de formular 
a próxima pergunta. As declarações 
FOR...NEXT serão explicadas na pró- 
xima lição de BASIC. 

No programa para o Sinclair, as vir- 
gulas nas linhas 40 e 150 servem para es- 
paçar as mensagens na tela. Nos outros 
programas, as declarações PRINT ex- 
tras fazem o mesmo. Para evitar que o 
programa seja interminável, faça o se- 
guinte: 





*L LST 


IO LET AR = CHOJE E" 
2W LET BS = CQUINTA-FELRA” 
I6 LET CE = AF + 05 


SELIM 
HOJE E" QUINTA-FEIRA 
'NEU 
HELA 








Pressione a tecla BREAK 

Acione as teclas STOP e ENTER. 
Pressione as teclas CONTROL e €, si- 
multaneamente, e depois RETURN. 


us 


Pressione as teclas CONTROL e STOP, 
simultaneamente. Mudando os noves 
do programa para cincos, seis ou setes, 
você poderá testá-lo com outras tabua- 
das. Será que você conseguiria modifi- 
car O programa para colocar esses nú- 
meros como variáveis, que seriam defi- 
nidas logo no começo por outra decla- 
ração INPUT? 





Muitas vezes, os iniciantes encon- 
tram dificuldades para interromper um 
programa em execução e voltar para a 


| listagem. Isso acontece especialmen- 
| te durante uma série de INPUTSs, quan- 
| do o computador enche a tela de men- 
| sagens, não importa o que você digite. 


A seguir, abordaremos alguns pe- 
quenos truques que o ajudarão a sair 
desses aparentes impasses. Não exis- 
tem problemas sem solução para 
quem lida com computadores, 


Pressione simultaneamente as te- 
clas CONTROL e SPACE (para acionar 
a função BREAK), Se isso não der re- 
sultado, é porque o programa está pa- 
rado numa declaração. INPUT. Neste 
caso, se houver aspas na parte de bai- 


| xo da tela, use a tecla de recuo do cur- 
sor e DELETE, para remover as aspas 


à esquerda, Depois disso, e se não hou- 
ver aspas, pressione as teclas STOP e 
ENTER, e acione ENTER de novo, para 
listar O programa automaticamente. 


É! 

Você deve acionar a tecla CTRL, 
mantê-la pressionada e, a seguir, pres- 
sionar a tecla C. Usaremos a notação 
CTRL-C para essa operação, assim co- 
mo em qualquer outra ocasião em que 
duas teclas devam ser acionadas simul- 
taneamente CTRL-C não funcionar ex- 
perimente CTRL-RESET. Após obter na 
tela o 'J', que é o sinal de prontidão, 
digite LIST. 


Pressione a tecla BREAK, e de- 
pois digite o comando LIST. Se não 
funcionar, pressione a tecla RESET na 


| parte de trás do computador. 


DM 


Acione agora simultaneamente as 





| teclas CONTROL e STOP. 











ESFÓRCO 


Você comete erros quando escreve 
cartas importantes? Se isso 
acontece, aqui está um programa 
que permite produzir cartas 
padronizadas com cópias 
personalizadas para muitas pessoas. 


Escrever um grande número de car- 
tas similares (por exemplo, pedidos de 
emprego, cartões de Natal, etc.) é uma 
tarefa longa e tediosa, quando reali- 
zada manualmente. 

O programa apresentado neste arti- 
go resolve num instante esse tipo de 
problema. Ele é um modelo simplifi- 
cado de um editor de textos, que per- 
mite entrar com uma carta padroni- 
zada no computador e produzir, caso 
necessário, cópias ligeiramente diferen- 
tes entre si. Alguns computadores pes- 
soais, como os da linha MSX, por 
exemplo, têm recursos para acentua- 
ção correta de textos em português, 
letras minúsculas e maiúsculas no te- 
clado e na tela, etc. Já os computa- 
dores compatíveis com a linha Sin- 
clair ZX-81 são bastante dificeis de 


——— ES as E 
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” COMO ENTRAR O PROGRAMA 


MM APRENDA A ADAPTAR O PROGRAMA 


usar com processamento de textos, 
pois dispõem de pouquissimos recur- 
sos para isto. Assim, não apresenta- 
mos aqui uma versão para máquinas 
desse tipo. 

Ao contrário de um programa com- 
pleto de processamento de textos, que 
costuma ser muito complexo e toma- 
ria horas de digitação para ser colo- 
cado no computador, o programa 
aqui apresentado tem bem menos re- 
cursos. Por exemplo, não dá para ver 
na tela o aspecto final da carta a ser 
impressa. Mas não se preocupe, ele 
não é tão limitado assim: tem recur- 
sos para evitar a divisão de palavras 
ao final de uma linha, inserir uma 
linha em branco entre dois parágra- 
fos, etc. 

Qualquer tipo de impressora serve 
para produzir as cartas (lembre-se, en- 
tretanto, que se você usou acentua- 
ção no texto, é necessário que a sua 
impressora seja capaz de reproduzi- 
la, O que nem sempre acontece), Se 
você quiser uma melhor qualidade de 
impressão, como é o caso de cartas 
mais “profissionais”, vai precisar, evi- 
dentemente, de uma impressora mais 
sofisticada (e com fita nova!). Esta 
pode ser do tipo matricial, com capa- 
cidade de imprimir em “qualidade car- 


























À SUA IMPRESSORA 
= DIAGRAMAÇÃO DE UMA CARTA 
= PADRÃO 
[a MELHORE SEU TEXTO 


IMPRESSAO DE COPIAS 


ta” (dupla sensibilidade de pontos), 
ou uma impressora (ou máquina de 
escrever) acoplada ao computador, 
usando o sistema de margarida, ou 
outro, Essas máquinas são caras, € 
nem todo mundo pode tê-las. Assim, 
talvez você possa usar a de um ami- 
go ou de seu trabalho. As caracteris- 
ticas das impressoras para micros se- 
rão discutidas em um artigo poste- 
rRor. 





COMO “ENTRAR” O PROGRAMA 


O programa consiste de duas partes: O 
programa propriamente dito, na primei- 
ra parte da listagem, cotextodacarta, que 
deve ser armazenado no programa, atra- 
vês de uma série de declarações DATA, 

Comece digitando o programa princi 
pal, listado a seguir para cada tipo de má- 
quina. Não digite as declarações DATA 
presentes no programa. Em seguida, gra- 
veo programa assim digitado em fita cas- 
sete ou disquete, usando o comando SA- 
VE (em alguns computadores, esse co- 
mando chama-se CSAVE): consulte o 
manual do computador para ver como 
usá-lo. Assim, O programa gravado pode- 
rá ser usado para qualquer tipo de carta, 
depois, Se você quiser preservarem a fita 
ou disco o programa contendo algum mo- 


























delo particular de carta, grave-o separa- 
damente, com outro nome (programa 
mais dados). 

Antes de imprimir sua carta, você 
deve fazer alguns ajustes, dependendo 
da impressora utilizada. 

Em primeiro lugar, verifique quan- 
tos caracteres por linha sua impresso- 
ra aceita (geralmente são 40, 80, 120 
caracteres por linha). Então, modifi- 
que o programa de forma a seguir 
essa largura de linha, permitindo uma 
margem adequada de ambos os la- 
dos. No programa, a variável TIL re- 
presenta o comprimento total dispo- 
nível na impressora, e LL, o compri- 
mento da linha a ser digitada. Assim, 
você pode alterar os valores atribui- 
dos no programa a essas variáveis, an- 
tes de imprimir as cartas. 


À 
I 


Vo a 


Modifique a linha 20 (dando a TL 
o valor da largura de linha disponível 
na impressora) e a linha 30, de modo 
que o valor de LL contenha a largura 
da linha da carta. Do jeito que está 
no programa, a linha 40 mostra na 
tela como sairá a carta, antes de im- 
primi-la. No momento da impressão, 
modifique a variável P, nessa linha, 
de O para 2. 


Modifique a linha 10 de maneira 
que PL seja a largura da impressora, 
e LL, a largura que você deseja para 
a carta (no exemplo dado, essas lar- 
guras estão muito pequenas para im- 
pressoras mais profissionais). 





Nesse computador não dá para im- 
primir a carta primeiro no vídeo, an- 
tes de mandá-la para a impressora, 
a não ser que você modifique todas 
as declarações tipo LPRINT existen- 
tes, para PRINT, e vice-versa. Na li- 
nha 10, as variáveis PL e LL devem 
ser modificadas conforme a sua im- 
pressora (ou, para impressão em vi- 
deo, para LL=35 e PL=40). 


E 
LEE) 


Modifique a linha 30 de maneira 
que TL e LL contenham as larguras 
de linha disponíveis na impressora e 
na carta, respectivamente. Se você qui- 
ser ver na tela, primeiro, como sairá 
a carta, mude o valor de P para O, 
TL e Ll para 39. 


DIGITE SUA PRIMEIRA CARTA 





Sua carta consistirá de uma série 
de declarações DATA, uma linha de 
texto por declaração. Digite-as como 
mostrado no exemplo na última pági- 
na deste artigo, 

As instruções DATA devem come- 
car na linha 1000 do programa, e con- 
ter inicialmente o seu endereço. A pri- 
meira tarefa do programa será procu- 
rar a linha mais longa do endereço, 
e imprimilo à direita do cabeçalho. 
Depois disso, as declarações DATA de- 
verão conter o texto propriamente di- 
to da carta. O computador alinhará 
esse texto junto à margem esquerda 
da carta, conforme os padrões mais 
modernos para cartas comerciais. 





Cada linha da carta deve começar 
com aspas, logo após a declaração 
DATA. Alguns simbolos de edição po- 
dem ser incluídos no texto. Eles têm 
por objetivo orientar a forma estética 
de impressão. Aqui vai o significado 
de cada simbolo de edição para nos- 
so programa: 

Aqui vai o significado de cada sim- 
bolo de edição para nosso programa: 


* O símbolo % significa: “esta li- 
nha é parte do meu endereço, coloque- 
a do lado direito da página”. 


e O cifrão, $, quer dizer: “comece 
um novo parágrafo, deixando uma li- 
nha em branco acima dele”, 


e O & comercial (ampersand): “co- 
mece uma nova linha na margem es- 
querda, mas não deixe uma linha em 
branco antes” (ele é útil para compor 
o endereço do destinatário da carta). 


e () asterisco (*) significa: “centre 
esta linha”. 


Se você deseja colocar algumas li- 
nhas em branco indique-as com uma 
série de cifrões entre aspas, um para 
cada linha em branco. Quando você 
atingir o final da carta, os computa- 
dores do tipo abaixo necessitam de 
uma linha adicional: 


Entre um número de linha adicional, 
seguido por DATA S$ 

Entre outra linha adicional, seguida 
por DATA, 





MELHORANDO SUA CARTA 





Visto que tudo está escrito em BA- 
SIC, você poderá, se quiser, gravar 
novamente o programa, com as decla- 
rações DATA incluidas. 

Posteriormente, Se você quiser me- 
lhorar a carta, ou produzir uma nova 
versão, O primeiro passo será carregar 
o programa correspondente, a partir 
do disco ou cassete (usando o coman- 
do LOAD, ou CLOAD, conforme o 
tipo de computador), e editar o pro- 
grama usando o editor BASIC da for- 
ma habitual. Grave-a novamente, se 
quiser preservar essas mudanças. Ca- 
so contrário, terá que redigitá-las 
quando carregar o programa original 
novamente. 


IMPRIMINDO AS CARTAS 





Para imprimir sua carta basta exe- 
cutar o programa: ele se encarregará 
de ativar e desativar a impressora. Se 
você tentar fazer isso sem que a im- 
pressora esteja conectada (quando ela 
está ligada, a luz que indica a cone- 
xão com o computador, normalmente 
rotulada LINHA ou LINE, permane- 
ce acesa), o computador ficará para- 
do, esperando que a impressora entre 
em funcionamento. Neste caso, inter- 
rompa a execução do programa, pres- 
sionando a tecla BREAK ou sua equi- 
valente. A forma de ver a carta no 
vídeo, antes de imprimi-la, já foi in- 
dicada. 

O tipo de papel a ser usado depen- 
de de sua impressora. Algumas acei- 
tam folhas soltas, caso tenham o rolo 
compressor de borracha: essas folhas 
são melhores para uma correspondên- 
cia mais formal. A maioria das im- 
pressoras, entretanto, usa formulário 
contínuo, deslocado pelos picotes na 
margem (remalina). Depois de impres- 
sa a carta, retire as remalinas com 
uma guilhotina ou abrindo os pico- 
tes, acertando com uma tesoura ou 
lâmina afiada. 

No caso de utilizar papel timbrado, 
não é necessário incluir o seu endere- 
ço na carta. Assim, digite O texto nor- 
malmente, começando da linha 1000, 
mas sem entrar as linhas que come- 
çam por & . Para imprimir cópias 
repetidas da mesma carta, execute o 
programa novamente, tantas vezes 
quantas forem necessárias. 


10 CLEAR 200 
20 TL=80 
30 LL=56 


ao P=0 

50 SP=(TL-LL)/2:HW=TL/2 

60 PRINT &-P,CHRS(13) 

70 IFP=2 THEN SPS=STRINGS (SP," 
"y ELSE SP=0:HW=16 

200 READAS:AS=AS+" *" 

210 IF AS=""GOTO 290 

220 OS=LEFTS(AS,1) 

230 IF 08="4" THEN ML=0:GOSUB 4 
00:GoTO 290 

240 IF 0$="$" THEN AL=0:PRINT+- 
P,CHRS(13);CHRS(13);SPS;:ST=2:G 
OTO 280 

250 IF 0$="*" GOSUB800:RL=HW-LE 
N(AS$)/2:GOoTO 280 

260 IF 08="A&" THEN BL=0:PRINTt&- 
P,CHRS(13);SPS;:ST=2:GOToO 280 
270 ST=1 

| GOSUB 600 

GOTO 200 

IF LEN(AS)>ML THEN ML=LEN(A 


410 N=N+1:hEAD AS: IF LEFTS(AS,1 

)j="4" GOTO 400 

420 IF ML>LL THEN CLS:PRINT “ER 

RO NO FORMATO. ENDERECO MUITO L 

ONGO PARA O TAMANHO DE LINHA 

ESCOLHIDO." : END 

430 RESTORE: FOR J=0 TO N-1:REA 

D AS:PRINT&-P,STRINGS(LL-ML," * 

);SPS;:PRINT4-P,MID(AS-2) ; CHRS( 

Lat 

440 NEXT:RETUAN 

600 WL=0 

610 IF ST+WL>LEN(AS) THEN 630 

620 IF MIDS(AS.ST+WL,1)<>" " TH 

EN WL=WL+1:GOTO 610 

630 IF WL>LL THEN CLS:PRINT "ER 

RO NO FORMATO..." ;AS:PRINT” ... 

CONTEM UMA PALAVRA GRANDE DEMAI 

81”: END 

640 IF AL+WL-1>LL THEN PRINT 4- 

P,CHAS(13);SPS;:RL=0 

650 WL=WL+1 

660 PRINT 4&-P,MIDS(AS,ST,WL)::R 

L=RL+LEN (MIDS (AS, ST,WL)) 

670 ST=ST+WL:IF ST<LEN(AS)+I GO 

TO 600 

6B0 RETURN 

B00 IF LEN(AS)>LL THEN CLS: PRIN 

T"ERRO NO FORMATO. NAO POSSo 
CENTRALIZAR" ,AS: END 

Bl1O PRINT +-P,CHRS (13); 

B20 IF HW>LEN(AS)/2 THEN PRINT 

-P, STRINGS (HW-LEN(AS)/2," "); 

B30 ST=2:RETUAN 


10 LET LL=34: 
15 LET LL=LL+1: 


LET PL=32 

LET T=(PL-LL) 
20 LET D=0 
30 READ AS: 
40 LET C=0 
50 IF C=L THEN GOTO 30 

60 LET C=C+l: LET D=D+l: IF £ 
>1 THEN GOTO 100 


LET L=LEN AS 


70 IF AS(C)="4" THEN GOTO 
500 
80 IF AS(C)="*" THEN GOTO 
700 
85 IF AS(C)="a&" THEN GOTO 


"900 FOR B=1 TO T: 


850 

90 IF AS(C)="5" THEN LPRINT 
CHR$ 13;CHR$ 13;: LET D=0: 
GoTo 900 

95 LET AS=" "+AS: LET L=L+1 
100 IF AS(C)=" " THEN GOTO 
800 

110 LPRINT AS(C) 

115 IF D>LL THEN LET D=0 

120 GoTo 50 

500 LET NL=O0: LET TA=LL: LET 
BE=O 

510 LET LE=LEN AS-1; IF LE>LL 


PRINT FLASH 1;"Erro no 
Endereco muito gran 


THEN 
formato - 
de.": STOP 
520 IF LE>BE THEN LET BE=LE 
530 LET NL=NL+1: READ AS: IF 
AS(1)="4" THEN GOTO 510 

540 RESTORE 1000 

550 LET TR=T+LL-BE; FOR G=1 TO 


NL: FOR H=1 TO TR: LPRINT " ”; 
- NEXT H: READ AS: LPRINT AS(2 
TO ): NEXT G 

560 GoTo 30 

700 LET TA=(LL-L)/2+T: IF TA<ST 

THEN PRINT CHRS 13: PRINT 


FLASH 1;"Erro no formato - Nao 
posso cen-tralizar.”: STOP 

710 LPRINT CHARS 13;: FOR nsl 
TO ta: LPRINT * ":;: NEXT n: 
LPRINT AS(2 TO L): GOTO 20 

B00 LET SL=LL-D-1l: LET CC=C+l: 
LET X=] 

810 IF CC=L THEN GOTO B25 

B20 IF AS(CC)<>" " THEN LET 
CC=CC+1: LET X=X+1l: GOTO B10 
825 IF X>=LL THEN PRINT CHAS 
13: PRINT FLASH 1;"Erro no Fo 
rmato - Palavra muito grande.” 
: STOP 

830 IF SL>=X THEN GOTO 110 
B50 LPRINT CHR$S 13;: LET D=0 
LPRINT * *F;: 
NEXT B: GOTO 50 


na 


5 CLS 

10 LET LL=35:LET PL=40 

15 LET LL=LL+I:LET PL=(PL-LL)/2 
20 LET D=0 

30 READ AS:LET L=LEN(AS) 

40 LET C=0 

S0 IF C=L THEN GOTO 30 

60 LET C=C+I:LET D=D+L:IF C>1l T 
HEN GOTO 100 

65 BS=MIDS(AS,C,1) 

66 IF BS="=" THEN STOP 

70 IF B$="4”" THEN GOTO 500 

B0 IF B$="*" THEN GOTO 700 

85 IF B$="&" THEN GOTO 850 

90 IF B$="S" THEN LPRINT CHR$ (1 
3) :LPRINT CHRS(13):LET D=0:GOTO 
900 

95 LET AS=" 
100 IF MIDS(AS,C,1)=" 

TO B00 

110 LPRINT MIDS(AS,C,]); 

115 IF D>LL THEN LET D=0 

120 coTo 50 

500 LET NL=0:LET TA=LL:LET BE=0 
510 LET LE=LEN(AS)-1:IF LEDLL T 


"+AS:;LET L=L+1 
" THEN GO 





| | sy 


HEN PRINT "ERRO NO FORMATO - En =— 
dereço muito longo” 
520 IF LE>BE THEN LET BE=LE 
530 LET NL=NL+1:READ AS:IF MIDS$ ca A 
(AS,C,1)="4" THEN GOTO 510 ani pat perl lá 
540 RESTORE 1000 o VISTA a 
550 LET TR=T+LL-BE:FOR G=1 TO N 9 paia CO ate 
L:FOR H=1 TO TR:LPRINT ” ";:NEX Voo a ni, MN rn 
T H:READ AS:F=LEN(AS)-1:LPRINT MO IDADE, mama A que nato E gr 
RIGHTS (AS,F) :NEXT G oro Rath gs cao E 
560 GOTO 30 O q RS ASA anna 
700 LET TA=(LL-L)/2+T:IF TA<T T vol OR agudo ep SUP 
HEN LPRINT CHR$(13):PRINT "ERRO A VT DO a rn q 
NO FORMATO - Não posso central na Aa RO AS gu LEO io 
izar”": STOP o DATE nei pa ão RA car om 
710 LPRINT CHR$(13):FOR N=1 TO |, Voo Sis am Ce ado CE pure srva ga 
TA:LPRINT ” ";:NEXT N:F=LEN(AS) aii, Ao 
-=1:LPRINT RIGHTS(AS,F);:GOTO 20 e 
800 LET SL=LL-D-1:LET CC=C+1:LE 
T X-1 Ma 
810 IF CC=L THEN GOTO 825 PE 
820 IF MIDS(AS,CC,1)<>” " THEN ca 
LET CC=CC+1:LET X=X+1:GOTO 810 reler retido 
825 IF X>=LL THEN LPRINT CHR$ (1 KO ao Pais UNE UE Na 
3): PRINT "ERRO NO FORMATO - Pal MEM são Patu, mp 
avra muito grande”: STOP 
830 IF SL>=X THEN GOTO 110 
850 LPRINT CHR$(13):LET D=0 
900 FOR B=1 TO T:PRINT” ";:NEXT 
B:GOTO 50 


Cao 
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o 
% 
100 HOME o 
110 ONERR GOTO 430 
120 TL = 80:LL = 60:P = 1:D$ = sm 
CHRS (4) | 
130 SP = (TL - LL) / 2:HW = TL o Me Rap tri, 
E Pavel 
» 
a 
1] 
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/ 2 
140 PRINT D$S;"PR$4";P 
150 PRINT CHA$ (13) 
160 READ AS:AS = AS + CHR5 (3 
2) 
170 IF AS = "" THEN 160 
180 OS = LEFTS (AS$S,1) 
190 IF OS = "4" THEN ML = O: G 
OSUB 260: GOTO 250 
200 IF OS ="S” THENBL=-O: P os ORA UNA 
RINT CHR$ (13); CHRS (13); SPC » gro Cr PrSSS prado is 
( SP);:ST = 2: GOTO 240 A 
210 IF OS = "*" THEN GOSUB 40 » gi E di 
O:RL = HW - LEN (AS) / 2: GOTO 
240 
220 IF O$ = "a" TRENABL=oO: P 


RINT CHR$ (13); SPC( SP);:ST = 
2: GOTO 240 dao | 
230 ST = 1 cm 


240 GOSUB 310 ; 
310 WL = 0 370 PRINT MIDS (AS,ST,WL);:BL 


250 GOTO 160 

260 IF LEN (AS) > ML THEN ML 320 IF ST + WL> LEN (AS) THE - BL + LEN ( MIDS (AS,ST,WL)) 
= LEN (AS) N 340 380 ST = ST + WL: IF ST < MLEN 
270 N = N+ 1: READ AS: IF LEF 330 IF MIDS (AS,ST + WL,1) < (AS) + 1 THEN 310 

TS (AS,1) = "4" THEN 260 2 * *“ THEN WL = WL + À: GOTO 3 390 RETURN 

280 IF ML > LL THEN PRINT ODS; 20 400 IF LEN (AS) > LL THEN PR 
"“PR4&O": HOME : PRINT : PRINT "E 340 IF WL > LL THEN PRINT DS; INT DS;"PR40": HOME : PRINT "ER 
RRO DE FORMATO! O ENDERECO": PR  "PR$40": HOME : PRINT "ERRO DE F RO DE FORMATO! NAO SE PODE CENT 
INT "E MUITO LONGO PARA O TAMAN  ORMATO! ": PRINT AS;"... CONTEM  RALIZAR ";AS: END 








HO DA LINHA”: END UMA PALAVRA MAIOR QUE A LINHA! 410 PRINT CHRS (13); 
290 RESTORE : FOR J = 1 TON: ": END 420 IF HW > LEN (AS) / 2 THEN 
READ AS: PRINT SPC( LL - ML+ 350 IF RL+WL-1>LL THEN PRINT SPC( HW - LEN (AS) / 


SP + 1); RIGHTS (AS, LEN (AS) — PRINT CHRS (13); SPC( SP);:RL 2):ST = 2: RETURN 
1); CHRS (13); » O 430 PRINT : PRINT DS;"PR$0”: E 


300 NEXT : RETURN 360 WL = WL+ã1I1 ND 








LINHA 


Apple Il + 

Apple Il+ 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple + 
Apple ll+ 
Apple Il + 
Apple + 
Apple + 
Apple + 
Apple ll+ 
Apple ll + 
Apple ll+ 
Apple ll + 
Apple Il + 
Apple ll + 
Apple Il + 
Apple + 
Apple Hl+ 
Apple Il + 

Apple Il + 
Apple ll + 
Apple ll + 
Apple ll + 
Apple Il + 
Apple ll+ 
Apple lle 

Apple Ile 


Apple Ile 
MSX 


MSX 


FABRICANTE Po 


Appletronica 
CCE 

CPA 

CPA 

Digitus 
Dismac 
ENIAC 
Franklin 
Houston 
Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Milmar 
Milmar 
Milmar 
Omega 
Polymax 
Polymax 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Unitron 
Victor do Brasil 
Victor do Brasil 
Microcraft 
Microdigital 
Spectrum 
Gradiente 
Sharp 


MODELO 


Thor 2010 
MC-4000 Exato 
Absolutus 


| Polaris 


DGT-AP 
D-8100 
ENIACII 
Franklin 
Houston AP 
DMII 
MX-2001 
MX-48 

MX.64 
Maxitronic | 
Crafll Plus 
Apple Il Plus 
Apple Master 
Apple Senior 
MC-400 
Maxxi 

Poly Plus 
Microengenho | 
Spectrum ed 
Venus ll 

SICI 

API 

Elppa ll Plus 
Elppa Jr. 
Craftlle 
TK-3000 He 


"Microengenho ll 


Expert GPC4 
Hotbit HB-8000 


FABRICANTE 


Appletronica 
Apply 

CCE 

CPA 

CPA 
Codimex 
Digitus 
Digitus 
Digitus 
Dismac 
Dismac 
Dismac 
Dynacom 
ENIAC 
Engebras 
Filcres 
Pranklin 
Gradiente 
Houston 
Kemitron 
LNW 

LZ 

Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Microcraft 
Microdigital 
Microdigital 
Microdigital 
Microdigital 


MODELO 


Thor 2010 
Apply 300 
MC-4000 Exato 
Absolutus 
Polaris 
CS-6508 
DGT100 
DGT-1000 
DGT.AP 
D-8000 
D-8001/2 
D-8100 
MX1600 
ENIACII 
AS+1000 
NEZ-8000 
Franklin 
Expert GPC1 
Houston AP 
Naja 800 
LNW-B0 
Color 64 
DMI 
MX-2001 
MX-48 
MX-64 
Maxitronic | 
Craft ll Plus 
Caftlle 
TK-3000 Ile 
TK-82C 
TK-83 

TK-85 


PAÍS 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


Brasil 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


LINHA 


Apple Il+ 


o Sinclair ZX-81 


Apple ll + 
Apple + 
Apple ll + 
TRS-Color 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
Apple + 
TRS-80 Mod.! 
TRS-80 Mod. 
Apple ll + 
TRS-Color 
Apple ll+ 
Sinclair ZX-81 
Sinclair ZX-81 
Apple ll + 
MSX 

Apple Il + 
TRS-80 Mod.lll 
TRS-80 Mod. | 
TRS-Color 
Apple Il + 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple Il+ 
Apple lle 
Apple lle 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 


Microdigital TK-90X Brasil 
Microdigital TKS-800 Brasil 


Sinclair Spectrum | 
TRS-Color 


Microdigital TK-90X 
Timex 2000 


Sinclair Spectrum 
Sinclair Spectrum Timex 


Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
TRS-80 Mod.I 
TRS-80 Mod. | 
TRS-80 Mod. | 
TRS-80 Mod.! 
TRS-80 Mod.lil 
TRS-BO Mod.il 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lll 
TRS-80 Mod.lil 
TRS-80 Mod.IV 
TRS-80 Mod.IlV 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 


Apply 
Engebras 


“Filcres 


Microdigital 
Microdigital 
Microdigital 
Prologica 
Ritas 

Timex 
Timex 
Dismac 
Dismac 
LNW 

Video Genie 
Digitus 
Digitus 
Kemitron 
Prologica 
Prologica 
Sysdata 
Sysdata 
Multix 
Sysdata 
Codimex 
Dynacom 
LZ 
Microdigital 
Prologica 


Apply 300 
AS41000 
NEZ-8000 
TK-B2C 
TK-83. 
TK-85 
CP-200 
Ringo R-470 
Timex 1000 
Timex 1500 
D-8000 | 
D-8001/2 
LNW-80 
Video Genie | 
DGT100 
DGT-1000 
Naja 800 
CP-300 
CP-500 
Sysdata Ill 
Sysdata Jr. 
MX-Compacto 
Sysdata IV 
CS-6508 
MX-1600 
Color 64 
TKS-800 
CP-400 


Milmar 
Milmar 


“Milmar 


Multix 
Omega 
Polymax 
Polymax 
Prologica 
Prologica 
Prologica 
Prologica 
Ritas 

Sharp 
Spectrum 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Sysdata 
Sysdata 
Sysdata 
Timex 
Timex 
Timex 
Unitron 
Victor do Brasil 
Victor do Brasil 
Video Genie 


Apple ll Plus 
Apple Master 
Apple Senior 
MX-Compacto 
MC-400 

Maxxi 

Poly Plus 
CP-200 

CP-300 

CP-400 

CP.500 

Ringo R-470 
Hotbit HB-8000 
Microengenho | 
Microengenho Il 
Spectrum ed 
Venus ll 

SICI 

Sysdata Ill 
Sysdata IV 
Sysdata Jr. 
Timex 1000 
Timex 1500 
Timex 2000 
APII 

Elppa Il Plus 
Elppa Jr. 

Video Genie! 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

USA 

USA 

Brasil 
Brasil 
Brasil 
USA 


Apple Il + 
Apple ll + 
Apple Il + 
TRS-B0 Mod.IV 
Apple Il + 
Apple Il + 
Apple l+ 
Sinclair ZX-81 
TRS-80 Mod.Ill 
TRS-Color 
TRS-80 Mod.lll 
Sinclair ZX-81 
MSX 

Apple Il+ 
Apple Ile 
Apple l+ 
Apple Il + 
Apple Il + 
TRS-80 Mod. 
TRS-80 Mod.IV 
TRS-80 Mod.lll 
Sinclair ZX-81 
Sinclair ZX-81 


Sinclair Spectrum 


Apple Il + 
Apple Il + 
Apple ll+ 
TRS-80 Mod. | 


EN an Tin macas 
é, UM LOGUTIE SI qi , 


“INPUT foi especialmente projetado para PN 
“ microcomputadores compatíveis com as sete principais Sinclair E TARSO TK:2000 MSX 


“linhas existentes no mercado. 
ba, então emp a sr 


“Os blocos de textos e listagens de programas po pera 
Eme renes E UM [06] Semp e 
; identificados por meio dos seguintes sim os: TRS-Color pune dl 


ED Dm me eee mo meto mm o em em 





es - di da id = Epa " E e e di di E E Sai E E a A a A Mc 
à ) ] . 


» ' dad | é 
a » E , + Da À à “0 
| Mm RE 7 EEE 
INHRannnaNO PROXIMO NUMEROBNEEEREI 
ars o ' : 


CÓDIGO DE MÁQUINA 
Sistemas numéricos. O sistema decimal e o sistema binário. 
Bits e Bytes. Como o computador faz contas de somar. 


PROGRAMAÇÃO DE JOGOS 
Controle os movimentos da figura na tela. Jogos de guerra 
Dispare seus mísseis e destrua o inimigo! 


PROGRAMAÇÃO BASIC 
A arte de fazer laços FOR... NEXT. Aprenda a criar efeitos 
sonoros no computador e veja o pôr-do-sol. 








